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TEST & TECHNIK  « 


Zeichensatzmodul 

von Kingsoft: 

Umlaute mit Widerhaken. 
Das Zeichensatzmodul 
verspricht mehr, als es 
tatsächlich zu halten 
vermag. Insbesonders ist 
es in Verbindung mit 
Script-Plus nicht für die 
Ausgabe auf den Drucker 
geeignet. 


Seite 4 
256 KByte-Erweiterung 

für C16/116/Plus4: 
Speicher-Giganten. 

Mehrere Mega-Byte groß 

könnte der Hauptspeicher 

Ihres Rechners sein. Ob dies 

sinnvoll ist oder nicht, 
technisch möglich ist 
alles. 


Seite 138 


TIPS & TRICKS 


BASIC-Kompressor: 

Speicherplatz sparen. 

Kommen Sie in Bedrängnis 

mit dem Speicherplatz, 

helfen wir Ihnen, zu 

sparen. Der BASIC-Kom- 

pressor beseitigt unnötige 

Blanks und REM-Zeilen und 

nützt voll die maximal mög- 

liche Zeilenlänge aus. Seite 13 


Relative Datei: 

Die Floppy als ernstzu- 
nehmendes Arbeitsgerät. 
Effektives Arbeiten setzt 
Wissen und Erfahrung 
voraus, hier besonders im 
Umgang mit sequentiellen 
und relativen Dateien, 
worüber wir Ihnen gerne 


mehr erzählen. Seite 6 


Grafik-Befehle: 

Aufgrund ihrer Viel- 
seitigkeit sind einige 
Grafik-Befehle etwas kom- 
pliziert und verdienen aus- 


führliche Erörterung. Seite 141 


BASIC-Schlüsselwörter: 

Optimales Editieren 

setzt die Kenntnis der 

98 BASIC-Abkürzungen 

voraus. Zum Leidwesen der 
Benutzer gibt es zudem 

noch Unterschiede bei den 
verschiedenen Rechnern. Seite 118 


Kartei: 

Tips und Tricks 

zum C16/116/Plus4. 
Für das Sammeln sind 
Karteikarten bestens 


geeignet. Seite 120 


LISTINGS 


Welthandel (64 KB): 

Ein intelligentes 
Programm, das Elemente 
des Wirtschafts- und 
Strategiespiels geschickt 
kombiniert. 

(bis zu 6 Spieler) Seite 17 
Mau-Mau (64 KB): 

Mangelt es Ihnen an 
einem geeigneten 
menschlichen Spiel- 
partner, so bietet sich 
Ihnen der Computer an. 
(1 Spieler) Seite 26 
Cäsar (64 KB): 

Dem Spiel ‚Kaiser‘ 
nachempfunden, kommt es 

bei „Cäsar‘' darauf an, 

durch gute Wirtschafts- 

und Bevölkerungspolitik 

vom einfachen Bürger bis 

zum Kaiser hochzusteigen. 

(bis zu 2 Spieler) Seite 31 


INHALT C16-SPECIAL Nr. 5/88 


Hanging Joe (16 KB): 
Galgenraten für mehrere 
Personen und in ver- 
schiedenen Schwiierigkeits 
graden. Aufgabe ist, ein 
Wort mit möglichst wenig 
Versuchen zu erraten. 
(bis zu 5 Spieler) 


Seite 


39 


Wolfsoft-Datei (64 KB): 


Gut gelungene Adreßdatei 


mit anwenderfreundlicher 
Menüführung. Bis zu 200 


Datensätze, bestehend aus 


Name, Anschrift, Telefon 
und Geburtsdatum, sind 
möglich. 


Seite 


43 


Kuwait (64 KB): 

Suchen Sie alleine oder 
mit mehreren Mitspielern 
in Kuwait nach Ol. Sie 


benötigen hierzu Bohrtrupps, 
Ölquellen, Pipelines, Tank- 
lager und Eisenbahnstrecken. 
Wer am geschicktesten ist, 


kann ein ganzes Olimpe- 
rium errichten. 
(bis zu 8 Spieler) 


Seite 


50 


Mystika (64 KB): 
Ein aufregendes Abenteuer 
auf Mystika, der versunke- 
nen fantastischen Insel, 
erwartet Sie. Suchen Sie 
den verborgenen Schatz im 
Geisterschloß. Ein umfang- 
reiches Textadventure, das 
Sie lange gefangenhält. 
(1 Spieler) 


Seite 60 


Snaky (64 KB): 
Geschicklichkeitsspiel mit 
vielen Levels. Snaky, die 
Schlange, muß versuchen, 

sich alle angebotenen Früchte 
einzuverleiben, ohne irgend- 
wo gegenzustoßen oder sich 
selbst in die Quere zu kommen. 


(1 Spieler) Seite 80 


Future Games (16 KB): 
Als Kommandeur eines 
Raumschiffes machen Sie 
der gegnerischen Flotte 
das Leben schwer. Wer die 
meisten Raumschiffe des 
Gegners ausgeschaltet hat, 
zeigt die Punktetabelle. 


(Spielerzahl unbegrenzt) Seite 90 


The Box of Skill (16 KB): 
Kein Spiel im eigentlichen 
Sinne, sondern ein Programm, 
das Reaktionsvermögen, Auf- 
merksamkeit und Konzen- 


tration prüft und übt. Seite 95 


Merchant-Service (64 KB): 
Von der Idee her ein in 
den Weltraum verlegtes 
Handelsspiel, das sich vor 
allem durch eine gute 
grafische Untermalung 
auszeichnet. Seite 99 
Qually goes in Town (16 KB): 
Ausgezeichnetes Grafik- 

adventure. In zwei hinter- 

einander zu schaltende 
Programmteile aufgeteilt, 

begnügt es sich mit mini- 

malem Speicherplatz. Durch 

die Verwendung identischer 
Häuserformen findet eine 

ganze Stadtlandschaft, auf 

mehrere Bildschirm verteilt, 

im Computer Platz. Keine 

leichte Aufgabe hat Qually 

vor sich, wenn er den ver- 

steckten Schatz finden will. 

(1 Spieler) _ Seite 111 


Mensch ärgere dich nicht (16 KB): 
Ob manuell, ob halb- 

automatisch mit Zwangs- 

zügen oder gar vollauto- 

matisch. „Mensch ärgere 

dich nicht‘’ können Sie auch 

auf ihrem Computer spielen. 


Seite 136 


TEST 


Umlaute mit 
Widerhaken 


Der Wunsch nach einem deutschen Zeichensatz fällt auch bei 
Hard- und Softwarefirmen auf fruchtbaren Boden. Wer würde sie sich 
nicht wünschen, die per Knopfdruck auf DIN-Norm umschaltbare 
Tastatur? Wir testeten, ob das Kingsoft-EPROM unsere Erwartungen 
auch tatsächlich zu erfüllen vermag. 


Seit es Computer gibt, war es immer 
der Wunsch der Benutzer, auf ihren 
Geräten den landesspezifischen 
Zeichensatz zu verwenden. Dies 
stieß aber immer wieder auf Schwie- 
rigkeiten, da die meisten Computer 
aus dem angelsächsischen Raum 
stammen, wo diese speziellen Zei- 
chen nicht bekannt sind oder aus 
anderen Gründen nicht implemen- 
tiert wurden. Ob es sich jetzt um 
die skandinavischen Zeichen, die des 
Mittelmeerraums oder, in unserem 
Fall, um Umlaute wie ä, ö, ü und ß 
handelt: Immer wieder treten Pro- 
bleme auf, diese Zeichen auf den 
Bildschirm oder Drucker zu bringen. 
Waren es zuerst die großen Maschi- 
nen, die die Darstellung ermöglich- 
ten, speziell bei Textverarbeitungs- 
programmen, traten doch immer 
mehr Computerhersteller die Flucht 
nach vorne an und rüsteten ihre 
Maschinen mit den entsprechenden 
Zeichensätzen aus. Aber auf der 
Strecke blieben die kleineren Geräte 
und Homecomputer. 


SOFT- UND 
HARDWARELÖSUNGEN 


Wo ein Mangel existiert, werden Lö- 
sungen gesucht. Einige Anwender- 
programme implementierten einen 
deutschen Zeichensatz, der aber in 
der Regel nicht unabhängig von die- 
sen Programmen zu verwenden ist. 
Die COMMODORE WELT brachte 
eine Software-Lösung, die an viele 
Programme und an jeden Drucker an- 
pafsbar ist, sofern die hardware- 
technischen Anschlußmöglichkeiten 
gegeben sind (die Ausgabe über 
RS232-Schnittstelle harrt allerdings 
noch der Realisierung). Trotzdem 
läßt sich mit Software allein das Pro- 
blem noch lange nicht restlos besei- 
tigen; so läßt ein Programm, das bei- 
spielsweise den ganzen Hauptspei- 
cher des Plus4 benötigt, keinen 


Raum für einen selbsterstellen Zei- 
chensatz. Wie gut, daß Script-Plus 
sich einen neuen Zeichensatz aus 
dem Hauptspeicher herausvickt und 
ihn einverleibt; gut auch, daß die 
eingebaute Software des Plus4 noch 
genügend Platz für diesen Zweck üb- 
rig läßt. Um wieviel besser wäre es 
jedoch gewesen, hätte bereits von 
Anbeginn eine Umschaltmöglich- 
keit der Tastatur auf deutsche Zei- 
chen bestanden, wie dies ja auch 
beim C128 realisiert wurde. Die 
Datasettenbenutzer vor allen Dingen 
hätten ihre helle Freude daran ge- 
habt, da keine langen Ladezeiten 
mehr nötig gewesen wären, um die 
Rechnertastatur auf DIN-Norm ein- 
zustellen. Was nicht war, kann aller- 
dings noch werden. Nun ist sie da, 
die Hardwarelösung: der Einbau- 
satz von Kingsoft. 

Er besteht aus einem EPROM, der 
die entsprechenden Zeichensätze 
enthält, sowie einem Schalter, der 
über ein dreiadriges Kabel mit dem 
EPROM verbunden ist. Auch die ent- 
sprechenden Tastaturaufkleber lie- 
gen dem Bausatz bei (siehe Abbil- 
dung). Der Umbau ist recht ein- 
fach und wird in der Anleitung aus- 
führlich erklärt. Allerdings sollten 
Sie sich vor dem Einbau das EPROM 
genau ansehen: Ist auch das richtige 
Pin abgebogen? Bei meinem Bausatz 
war dies nicht der Fall. Abgebogen 
wird Pin 27. An ihm muß auch ein 
Draht angelötet sein. Alle anderen 
Pins werden in die Fassung gesteckt. 
Den Schalter können Sie nun an ei- 
ne beliebige Stelle Ihres Computers 
einbauen. Jetzt können Sie zwi- 
schen dem deutschen und dem 
amerikanischen Zeichensatz hin- 
und herschalten. 

Erreicht wird dies durch entspre- 
chende Anwahl des EPROM-Blocks, 
wobei der entsprechende Pin (hier 
ist es Pin 27) wahlweise an Masse 
oder Plus der Computerbetriebs- 
spannung gelegt wird. Das heißt, 


4 


TEST 


vaß es im Eprom den gleichen 
Block zweimal gibt, einmal mit deut- 
schem und einmal mit amerikani- 
schem Zeichensatz. Wie ich meine, 
die eleganteste Lösung, zumal durch 
die Tastaturaufkleber beide Tasten- 
belegungen angezeigt werden. 

Ein Wermutstropfen für die Plus4- 
Besitzer, die mit der eingebauten 
Software arbeiten wollen, ist, daß 
der deutsche Zeichensatz leider 
nicht mit dieser zusammenarbeitet. 
(Das geht auch aus der Verpak- 
kungsaufschrift des Einbausatzes 

: zum Drucken der deut- 

= e schen Umlaute wird ein Commo- 
EEE [EEE I dore-Drucker oder kompatibler 
Drucker mit DIN-Zeichensatz be- 


3 nötigt (zum Beispiel MPS-1000/ 

EL e 126%). Nach Angabe von Kingsoft 

i sollte nun dem Betrieb mit Script 

0 | Plu: und vielen anderen Program- 

men nichts mehr im Wege stehen. 

„Der deutsche Zeichensatz wurde 

so cdiert, daß er mit dem verbrei- 

=“ IE teten Textprogramm Script Plus 

5 zusämmen funktioniert‘, steht in 


der Anleitung zu lesen. Hier war 
Skepsis angebracht: die Schwierig- 
keiten in Verbindung mit der Druk- 
kerausgabe waren auch der Redak- 
tion COMMODORE WELT bekannt. 
Die Zeichen, die der Drucker benö- 


WO BLEIBT DER AUSDRUCK? 


tigt, werden nämlich von der Aus- 
gaberoutine einfach negiert. 
Ergebnis: Die deutschen Umlaute 
erschienen prompt auf dem Bild- 
schirm und waren nach Abspei- 
chern und erneutem Laden wieder 
sichtbar. Doch nun wollten wir prü- 
fen, was nach ‘ESC o v‘ geschehen 
würde. Und in der Tat waren die 
deutschen Umlaute bis auf ‘Ä‘ und 


WET : FE “Ö‘ verschwunden. Bei der Drucker- 


Y Jay iR FE HT ausgabe ergab sich dasselbe Bild. 

Z ar £ Damit erweisen sich Kingsofts Ver- 
KINGSOFT KINGSOFT sprechungen als nicht eingelöste Be- 

Yy y / J W 4 hauptungen. Die etwas umgestalte- 


ten dünneren Zeichen des deutschen 
Zeichensatzes sind im REVERS- 


WÜCKARITE DEE DM ArTIRat vielen anderen Programmen 


chensatz nur in eigenen Program- 
men nn will, oder ein an 
zusagendes Textprogramm zu fin- 
COMMODORE PLUS/A den vermag, das mit Kingsofts Zei- 
chensatz harmoniert, wird, sofern 
er auch den geeigneten Drucker be- 
sitzt, dennoch auf seine Kosten 
kommen. Bernd Welte 


IHI/EN SOFTWARE 
MAUS IN GEHKMANY 


DEUTSCHER ZEICHENSATZ « e 
8 DEUTSCHER Mode nur sehr schwer auf dem Bild- 
° schirm zu lesen. Daß das gelieferte 
zZ x =) 
|3 ZEICHENSATZ EPROM ein etwas fehlerhaftes Be- 
8 ERETERTTTEREER triebssystem enthält, welches mit 
| |& eher re Script Plus nicht gerade sonderlich 
7) © Leichter Finbau ohne Loten harmoniert, ist ein weiteres Manko. 
a a ie g © Kompatibel zu SCRIPT PLUS und Wer allerdings einen deutschen Zei- 
j 
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TIPS & TRICKS 


Alles ist relaltiv, 
sagte schon 


Gelobt sei sie, die gute alte Stehkartei. 

Als Computer-Anwender wollen wir auf ihre Vorteile 
nicht verzichten. Wir stellen vor: Datenverwaltung auf 
einer sequentiellen Datei und einer relativen Index- 
datei — Tips und Anregungen für Sie, Ihren C16/116/ 
Plus4 nicht nur zum Spielen, sondern als ernst- 

zunehmendes Arbeitsgerät einzusetzen. 


Bei ‚Datei‘ denkt man so- 
fort an Büros, vollgestopft 
mit Aktenordnern und 
Karteikästen. Das hat im 
Prinzip schon etwas da- 
mit zu tun, wir erzeugen 
mit dem Computer eine 
„Registratur“ oder, wenn 
Sie wollen, einen Kartei- 
kasten, dessen Inhalt sich 
natürlich auf ein externes 
Speichergerät wie Floppy 
oder Datasette auslagern 
läßt. 


“ DIE REGISTRATUR 
IM COMPUTER 


Überlegen wir uns, was 
so eine Kartei (=Datei) 
eigentlich enthalten soll. 
Am besten möglichst vie- 
le Karteikarten. Außer- 
dem ist wichtig zu wissen, 
was man darauf eintragen 
will (Adressen der Kun- 
den, Kochrezepte, Video- 
filme, Schallplatten usw.). 
Da gibt’s jede Menge Mög- 
lichkeiten. 

Wir haben uns für das Er- 
fassen von Büchern ent- 
schieden, zum Beispiel 
Ihre Computer-Fachbib- 
liothek. 

Legen wir die einzelnen 
Punkte auf der Karteikar- 
te fest: 


BUCH-NUMMER...... 
BL A 0 3 4 ee; 


So oder ähnlich könnten 
die einzelnen Punkte aus- 
sehen. Das sind die „„Da- 
tenfelder‘, die gesamte 
Karteikarte ist ein .‚Da- 
tensatz““. 

Wie bringen wir solche 
Datensätze jetzt in unse- 
rem Computer unter? 
Über ein Programm, egal 
ob in BASIC oder Assem- 
bler (zum besseren Ver- 
ständnis benutzen wir als 
Beispiele BASIC-Program- 
me, siehe Listing 1 und 2). 
Es geht hier nämlich um 
die beiden gebräuchlich- 
sten Arten, Daten mit 
dem Computer zu verwal- 
ten: die sequentielle und 
die relative Datei. 


SEQUENTIELLE 
DATEIABLAGE - IN 
SCHONER REIHEN- 

FOLGE HINTER- 

EINANDER 


Was ist nun eine sequen- 
tielle Datei? Es bedeutet 
ganz einfach, dafs die Da- 
tenfelder hintereinander, 
wie sie kommen, gespei- 
chert werden und unter 
einem von Ihnen festzule- 
genden Dateinamen auf 
Diskette verewigt sind. 
(In diesem Falle eisnet 
sich auch die Datasctte, 
wenn auch wegen des 
Zeitaufwands sehr be- 
dingt.) 

Wollen Sie nun diese Da- 
tei wieder lesen (oder nur 


Peripheriegeräte 


auch einen Datensatz dar- 
aus), so bleibt Ihnen 
nichts übrig, als die ge- 
samte sequentielle Datei 
wieder in den Computer 
zu laden, um sie dann wei- 
terbearbeiten zu können 
(Daten ansehen, ändern, 
erweitern und so fort.) 
Bei grofßsen Dateien (500 
Sätze und mehr) können 
solche Manipulationen 
schon recht zeitaufwendig 
sein, auch wenn Sie die 
Floppy benutzen. 

Wie wird eine sequentielle 
Datei erzeugt, verwaltet 
und ‚gepflegt‘? 


we “ % 
LELEELLLEEEUEEN EURE: 


Natürlich durch ein ent- 
sprechendes Hauptpro- 

gramm, wie es als unge- 
fähres Beispiel unser Li- 
sting | darstellt, das wir 
hier in den wichtigsten 

Funktionen besprechen 
wollen. 


DIMENSIONIEREN 
IST WICHTIG 


Zunächst wird eine Einga- 
beroutine (ab Zeile 270) 
angesprochen. Verwen- 
den Sie hier bitte indizier- 
te Variablen, die Sie vor- 
her in der Zeile 100 di- 
mensioniert haben. Diese 
Art Variablen wird immer 
dann verwendet, wenn sie 
im Programmverlauf oft 


C- sammodere 


vorkommen, aber jedes- 
mal andere Werte (Inhal- 
te) haben können. Sonst 
müßten Sie die Eingabe- 
Routine dieser sechs Da- 
tenfelder jedesmal mit an- 
deren Variablen-Namen 
neu im Programm erschei- 
nen lassen, was doch 
ziemlicher Quatsch wäre, 
oder? 

Index-Variablen sparen 
wirklich Speicherplatz. 
Wichtig ist lediglich die 
Reservierung (Dimensio- 
nierung) gleich zu Pro- 
grammbeginn, denn im 
Normalfall reserviert un- 
ser Computer nicht mehr 
als elf indizierte Varia- 
blen (von O bis 10). Die 


ne 803 


dung würde dann BAD 
SUBSCRIPT ERROR lau- 
ten. Datensätze lassen 
sich genauso viele einge- 
ben, wie Sie in Zeile 100 
dimensioniert haben 
(oder bis der Speicher- 
platz unseres Computers 
zuende ist!). 

Das Speichern Ihrer Bib- 
liothek übernimmt das 
Programm ab Zeile 600. 
Nachdem ein Dateiname 
(FL$) gefunden ist (der 
wird nämlich ins Inhalts- 
verzeichnis Ihrer Disk ein- 
getragen), sollten Sie am 
besten eine eigene forma- 
tierte Datendisk ins Lauf- 
werk legen (außer Sie ha- 
ben noch viel Platz auf 


Hauptprogramm gespei- 
chert hat). 

Jetzt wird in Zeile 680 ei- 
ne sequentielle Schreib- 
datei auf Ihrer Disk er- 
öffnet: open2,8,8,fl$+““, 
s,w“(s=sequentiell; w= 
write, d.h. schreiben), 


dann wird die bis dato er- 
reichte Anzahl der Einträ- 
ge (Variable Z) notiert 
und letztendlich, schön 
in einer Reihe, hinterein- 
ander, die bekannten Da- 
tenfelder. In Zeile 720 
lätst sich das ganz gut er- 
kennen. 

Der Befehl, der zum 
Schreiben einer Datei ver- 
wendet wird, heift: 
PRINT# (mit dem Rau- 
tenzeichen). Achtung: 
Bitte in diesem speziel- 
len Fall das Befehlswort 
PRINT nicht mit dem 
Fragezeichen ‚,?‘ abkür- 
zen, Ihr Computer wird 
es Ihnen verübeln. Die 
Abkürzung für dieses 
PRINT heißt ‚‚P“ und 
Shift-Taste/R, dann die 
Raute! Etwas sehr wichti- 
ges ist noch zu erwähnen: 
In Zeile 100 finden Sie 
eine Variable namens 
CR$, definiert als CHR$ 
13. Das ist für den Com- 
puter der Hinweis, dafs 
jetzt (wie bei einer 
Schreibmaschine) ein Wa- 
genrücklauf zur nächsten 
Zeile stattfinden soll (auf 
Englisch ‘“Carriage Re- 
turn“). Bei der Speiche- 
rung von sequentiellen 
Strings brauchen Sie so 
ein Zeichen, um die ein- 
zelnen Datenfelder auch 


ordnungsgemäß vonein- 
ander abzutrennen, sonst 
klappt die ganze Daten- 
speicherung nicht so, wie 
Sie sich das vorgestellt 
haben, ein STRING TOO 
LONG ERROR stellt sich 
dann ziemlich schnell ein. 
Die Schreibdatei wird ord- 
nungsgemäß in Zeile 730 


Was sich speichern läßt, 
sollte sich natürlich auch 
laden lassen. Das über- 
nimmt das Unterpro- 
gramm ab Zeile 420. Es 
wird Ihnen sicher auffal- 
len, dafs der gesamte Ab- 
lauf eigentlich genauso 
von statten geht, wie beim 
Speicher (siehe dortiges 
Unterprogramm ab Zeile 
600). Auch hier muß ei- 
ne Datei, in dem Fall eine 
Lese-Datei, eröffnet und 
der File-Name angegeben 
werden (file kommt aus 
dem Englischen und be- 
deutet soviel wie Eintrag). 
Der grundlegende Unter- 
schied ist das Befehlswort 
zum Einlesen von Disket- 
te: INPUT#. (Dieser Be- 
fehl läßt sich nicht abkür- 
zen.) Noch einen Unter- 
schied gibt’s: PRINT# 
läßt sich auch im Direkt- 
modus verwenden (was 
aber nicht sehr sinnvoll 
ist), INPUT# hingegen 
nur innerhalb eines Pro- 
grammes. In Zeile 540 
können Sie gut erkennen, 
daß auch hier die Daten 

— wie beim Speichern — 
nacheinander eingelesen 
werden. Eine Routine zur 
Ausgabe der Daten auf 
Bildschirm (ab Zeile 780) 
darf in einem Dateipro- 
gramm natürlich nicht feh- 
len. Probieren Sie ruhig 
ein wenig mit diesem Pro- 
grammgerüst herum, än- 
dern Sie die Bezeichnung 
der Datenfelder, erweitern 
Sie die Anzahl, bauen 

Sie eine Routine zur Aus- 
gabe der Daten auf Druk- 
ker mit ein. Auch ein Sor- 
tierprogramm wäre nicht 
schlecht. Es gibt viele 
Möglichkeiten, auf die wir 
aber nicht näher einge- 
hen wollen. Unser Listing 
l ist nur als Programmbei- 
spiel gedacht und soll Sie 
zur eigenständigen Ver- 
besserung und Verfeine- 
rung anregen. 

Eines wird sich hier im- 
mer wieder klar heraus- 
stellen: Die sequentielle 
Datei hat den Nachteil, 
daß sie zur Bearbeitung 
jedesmal vollständig in 
den Rechner geladen wer- 
den muß, auch wenn Sie 
nur einen Datensatz brau- 
chen! Das ist schon ein 


entsprechende Fehlermel- der Diskette, die das geschlossen (CLOSE2). 
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EEE tettrtttt 


bifßchen umständlich. 


» 


TIPS & TRICKS | 


SEQUENTIELLE DATEI 
c16 <jj> 


Doch der Computer bie- 
zet Abhilfe: die sogenann- 
te ‚relative‘ Datei. Der 
erößte Vorteil: Sie wird 
zwar innerhalb des Rech- 
ners erstellt, eingegeben 
und zur Verarbeitung be- 
reitgestellt, aber das im- 
mer nur in Form einer 
..Karteikarte‘ (eines Da- 
tensatzes), so, als ob Sie 
die gerade aus einem Kar- 
teikasten gezogen hätten. 
Daraus werden Sie un- 
schwer folgern, daß die 
Gesamtdatei auch woan- 
ders gespeichert werden 
kann: nämlich auf Dis- 
kette! (Mit der Datasette 
funktioniert’s nicht.) 
Hier dürfte es wohl kaum 
noch Speicherplatz-Pro- 
bleme geben, denn die 
Floppy 1541/1551 be- 
sitzt 664 freie Blocks 

(1 Block = 256 Byte). 
Der Speicherplatzbedarf 
des Computers besteht 
hier lediglich aus dem 


RELATIVE DATEI 
BENÜTZT FLOPPY 
ALS SPEICHER 


Hauptprogramm (ohne 
das geht es auch hier 
nicht) und dem jeweils ge- 
ladenen Datensatz. Ein 
Zugriff darauf ist in sehr 
kurzer Zeit möglich, oh- 
ne die ganze Datei laden 
zu müssen. Das ist doch 
schon viel komfortabler, 
nicht wahr? Auch hier 
haben wir als Beispiel un- 
ser Programmiergerüst in 
Listing 2 abgedruckt. 

Die einzelnen Schritte 
und ihre Bedeutung im 
einzelnen: 

Die Anzahl und Bezeich- 
nung der Datenfelder 
bleibt gleich. Eine Ände- 
rung aber ergibt sich 
schon ab Zeile 160. Nach 
der Dimensionierung der 
Dateisatz-Anzahl sollten 
Sie die Menge der Daten- 
felder (sechs) ebenfalls in 
einer Variablen definie- 
ren, diese Zahl wird im 
weiteren Verlauf noch öf- 
ters gebraucht. Falls Sie 
diese Zahl verändern wol- 
len, genügt es dann, nur 
den Wert dieser Variablen 
in Zeile 180 einzutragen. 
Einen Datensatz nennen 
wir nun bei dieser Datei- 
Gattung “Record‘“, der 


18 rem 
28 rem 
38 rem 


98 rem 


sequenz-datei========== 
(p) commodore-welt-team 


{c) by harald beiler 


basic v3.5 
c16/116/plus4 


86 dm=-188: dimbn$l dm) ‚,Lt$i dm) ,au$ 
{cdm) , ijh${ dm) ‚vi$lcm) ‚,Lh$l dm) :z=B:c 


r$=chr$ 
118 scn 
128 cha 


(13) 
elr:printchr$( 14) 
r1,13,2,"M EN U E",1A 


138 char1,9,5," E ",1:char1,12,5," 


ingabe 


einer Datei" 


148 chari1,9,7," L ",1:char1,12,7,” 


aden ei 


ner Datei":print 


158 char1,9,9," 5 *,1:char1,12,9,* 


peicher 


n einer Datei":print 


160% char1,3,28, "Bitte entsprechend 


e Taste 


druecken I!" 


178 char1,9,11," B ",1:char1, 12,11 


‚"ildsc 
18M get 
198 ift 
280 ift 
218 ift 
228 ift 
238 got 
248 rem 
258 
268 
278 
rint 
288 
298 
388 
318 
328 
338 
349 
e einge 
350 get 
368 
378 
388 
396 rem 
488 rem 
418 rem 
429 
isk.":p 
430 
ei ";fs 


rem 
scn 


inp 
inp 
inp 
inp 
inp 
inp 


ift 
got 


hirmanzeige”:print 
keyt$ 

$="e"then278 
$="1"then428 


$="s"then6BßB 
$="b"then?788 
0788 

daten-eingabe 
celr:print”DATEN-EINGABE."”:p 
ut” Buchnr. "-bn$(z) 
ut" Titel ";tt$(z) 
ut” Autor "-au$(z} 
ut" Ersch.J.: ";jh$(z) 
ut” Verlag ":v1$(z) 
ut" Thema "»th$(z) 


ben ? (j/n)" 
keyt$ 


ift$="j"thenz=z+1:goto278 


$="n"then118 
0356 


daten laden 


rint 


$:print 


print:print"Weitere Datensaetz 


senclr:print"Daten laden von D 


input"Name der zu ladenden Dat 


44m print"Diskette im Laufwerk (5j/ 


n) 
458 get 
468 ift 


keyt$ 
$=" j"then498 
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<ie> 
<ng> 
<eon? 
<pd> 
<ah> 
<nl> 
<ki> 
<jg> 


<id> 
<ah> 
<ff> 


<dm> 
<jm> 
<bb> 
<mj? 


<cl> 
<aa> 
<ln> 
<mi> 
<jk> 
<ec> 
<bh> 
<ch> 
<ac> 
<ob> 


<nl> 
<np?> 
<kg? 
<on> 
<gk> 
<jk> 
<he> 


<cf> 
<kl> 
<hk> 
<og> 
<id> 
<fj> 
<ej? 
<oa> 


<pf> 
<ee> 
<ch> 


<pb> 
<ja> 


hier aber strengeren Ge- 
setzen als bei der sequen- 
tiellen Datei unterworfen 
ist. Hier wird unser Com- 
puter sehr genau, schließ- 
lich muß er klare Angaben 
haben, wo er auf der Dis- 
kette die gespeicherten 

x ma wieder finden 
soll. 


RECORD — 
HAT NICHTS MIT 
SPORT ZU TUN 


Sie müssen sich zuerst ein- 
mal entscheiden, wie groß 
die Eingabelänge eines 
Datenfeldes überhaupt 
sein soll. (Die Zahl darf 
nicht höher als 254 sein.) 
Achtung: Die gesamte 
Länge der Datenfelder 
(erinnern wir uns, es sind 
sechs) darf aber wieder- 
um nicht 254 Byte über- 
schreiten. Wichtig ist au- 
ßerdem, daß zu der Län- 
ge des jeweiligen Daten- 
satzes noch ein Byte ad- 
diert wird (das ist näm- 
lich der ““Carriage Re- 
turn“, also der Wagen- 
rücklauf, den wir schon 
von der sequentiellen Da- 
tei kennen). Auch bei der 
„Relativen‘ braucht der 
Computer ein Merkzei- 
chen, daß ein Datensatz 
beendet ist. In unserem 
Beispielprogramm haben 
wir es uns einmal leicht 
gemacht und als pauscha- 
le Eingabelänge 25 Byte 
gewählt, was eine Record- 
Länge von 6*25 + 1=151 
Byte ergibt (das wird 

mit rl= 151 in Zeile 340 
erledigt). 


WIE BEIM KARTEI- 
KASTEN: RECORDS, 
UNABHÄNGIG VON 
DEN ANDEREN 
AUFRUFEN 


Auf einen solchen Daten- 
satz kann zugegriffen 
werden, wenn Sie dem 
Computer mitteilen, ab 
welchem Byte er auf der 
Disk zu finden ist. Ein 
Beispiel: Sie brauchen 
den 10. Record und wis- 
sen, daß ein Record 151 
Byte belegt. Die Rechen- 
formel lautet dann: (10-1) 
*151 = 1359, was nichts 


Th mn 


r 


« 


TIPS & TRICKS 


anderes bedeutet, als daß 
eben der 10. Datensatz 

an dieser Stelle, gerech- 
net ab Dateianfang, her- 
ausgekramt werden muß. 
Da dieser auf der Diskette 
ja immer für die einzelne 
Gesamtdatei an anderer 
Stelle liegen kann, bezieht 
sich die Lage des Records 
immer auf diesen Datei- 
anfang und rechnet die 
„Byte-Entfernung‘‘ ab 
diesem Punkt nach der 
obengenannten Formel 
aus. Relativ bedeutet: 

von etwas ausgehen, bezo- 
gen auf etwas. Na, nun 
dämmert’s uns, wieso das 
Ding ‚relative Datei“ 
heißt. 

Sich nun bei jedem Daten- 
satz die Beginnzahl zu 
merken und per Hand zu 
notieren, widerspricht un- 
serem Computer-Verständ- 
nis. Wofür haben wir 
schließlich unseren Rech- 
ner? Das kann er, bitte- 
schön, selbst machen. 
Was liegt näher, als hier 
eine sequentielle Datei 
einzurichten, in der die 
Zahl des Anfangs und 
noch ein Erkennungscode 


SEQUENTIELLE DATEI 
ALS HELFER 


gespeichert ist, mit dem 
wir jeden Datensatz iden- 
tifizieren und aufrufen 
können? Gesagt, getan. 
In Zeile 170 bis 180 se- 
hen Sie, daß wir die Va- 
riable ID$ (das Kennwort) 
und IN (die Erkennungs- 
nummer) festgelegt und 
auch gleich dimensioniert 
haben. 

Im Menü finden Sie vier 
Anwählpunkte, wobei 
bei Arbeitsbeginn immer 
zuerst Punkt | (Daten- 
kanäle öffnen) aufzuru- 
fen ist. Jetzt geschieht 
folgendes: Die Zeile 340 
definiert LF mit ‚‚8“ als 
logische File--Nummer 
und DN$ mit dem Text 
FACHBUCH (als Na- 

me der relativen Datei). 
Bei anderen Dateien müß- 
ten Sie das natürlich än- 
dern oder gleich zu Pro- 
grammbeginn durch In- 
put-Fragen festlegen 
lassen. 

Jetzt wird das Unterpro- 
gramm ab Zeile 1070 auf- 


478 ift$="n"thenprint"Bitte einleg 


en !" 


488 


498 printfs$" wird jetzt geladen." 


goto458 


:print 


509 
518 
528 
538 
548 


open2,8,8,fs$+",s,r" 
inputf#2,f1$ 
input#2,z 

fori=®toz 


input#2,bn$(i),tt$(i) ,au$(li),j 


h$li),v1$(i),th$(i) 


558 
568 
578 
588 
598 
688 


next :close2 
goto118 


VEREIN ATS 


rem daten speichern 


rom FE en 
senclr:print"Daten speichern a 


uf Disk.":print 


618 input”Welchen Namen soll die D 


atei erhalten ";fl$:print 


628 print"Diskette im Laufwerk (j/ 


n) 
639 
648 


658 ift$="n"thenprint"Bitte einleg 


getkeyt$ 
ift$="j"then670 


en !” 


668 


678 printfl$" wird jetzt abgespeic 


got0o638 


hert.”:print 


6858 
698 
788 
718 
728 


open2,8,8,f1$+",s,w" 
print#2,fi1$ 
print#2,z 

fori=@toz 


print#2,bn$(i);er$;tt$(i);cr$; 
au$(i);cer$; jh$li);cr$;vi$fi);cr$;t 


h$li);cr$ 


738 
748 
758 
768 
778 
788 
798 
888 


next:close2 
goto118 


BE SERIEN TEIEBERNEEEENEEREARUNISTER FINN 


rem daten änzeigen 


Ka, ee EEERTETIE 


senclr:printfs$:print 
fori=#toz 


printbn$(i):printtt$(i):printa 
u$(i):printjh$(i) :printvl$li):prin 


tth$(i) 


818 print:print"”Weiterer Datensatz 


-> 
828 
838 


848 print"Rueckkehr zum Hauptmenue 


Taste !” 
poke239,8:wait239,1 
next 


= LEERTASTE I!" 


858 
868 
878 
888 
898 
938 


poke239,8:wait239,1 
goto118 


Tem ===> 5 7 11-2222 


rem 12277 bytes memory 


rem 82419 bytes program 
rem 89849 bytes variables 
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<om> 
<mn> 


<hf> 
<fg> 
<mk> 
<dp> 
<lp> 


<me> 
<pa> 
<mc> 
<nl> 
<ih> 
<ag?> 


<jp> 
<ac> 


<gn> 
<dn> 
<ah> 


<po> 
<ce> 


<oa> 
<cj? 
<hi> 
<cd> 
<mg> 


<og> 
<de> 
<aj? 
<ch> 
<op? 
<ob> 
<dn> 
<pk> 


<gk> 


<ki> 
<ep> 
<ae> 


<ob> 
<bd> 
<jb> 
<bn> 
<ah> 
<dd> 
<lp> 


gerufen, das zwei OPEN- 
Befehle enthält, einen 
zum Öffnen des Floppy- 
Fehlerkanals (wir werden 
noch sehen, wofür) und 
den eigentlichen OPEN- 
Befehl für die relative Da- 
tei (Zeilen 1070 und 
1080). 


Damit nicht genug: Im 
Betrieb mit der Floppy 
können im Höchstfall drei 
Datenkanäle geöffnet wer- 
den, und einen brauchen 
wir noch: den für die se- 
quentielle Datei für die 
Index-Angaben (Such- 
wort und Beginn des Re- 
cords). Das erledigt Zeile 
350. Als Name für diese 
Index-Datei wurde SEQ. 
FACHB. gewählt. Nach 
dem Auslesen des Floppy- 
Fehlerkanals (wenn Sie 
das allererstemal mit die- 
ser relativen Datei arbei- 
ten, erscheint immer 
„File Not Found“, weil 
ja noch keine solche Da- 
tei auf Diskette ist, aber 
darum brauchen Sie sich 
gar nicht zu kümmern), 
allerdings wird uns jetzt 
auch klar, warum wir un- 
bedingt Wert darauf ge- 
legt haben, zu jeder Pro- 
grammfunktion des 
Floppy-Fehler abzufra- 
gen. Auch wenn’s logisch 
gesehen kein Fehler ist 
(wo noch nichts ist, kann 
unser Computer kein 
„File“ finden, das wollen 
wir doch erst erzeugen), 
egal, das Programm wür- 
de mit dieser Fehlermel- 
dung abbrechen und wir 
kämen nie zu unserer 
Datei. Daß alles in Ord- 
nung ist, sehen Sie an der 
Meldung ‚„Dateiarbeit 
kann begonnen werden“. 
Das wird in der Regel 
jetzt Menüpunkt zwei, al- 
so die Dateneingabe, sein. 
Das erledigen Sie jetzt 
ebenso, wie bei der se- 
quentiellen Datei. Das ist 
ausnahmsweise einmal 
kein Unterschied. 


DATENFELDLÄNGE 
FESTLEGEN 


Interessant sind aber noch 
die Zeilen 520 bis 550. 
Wie Sie sich noch erinnern, 
haben wir für jeden Daten- 
satz eine pauschale Länge 
von 25 Byte festgelegt 


TIPS & TRICKS 


918 rem AiB6Q bytes arrays 

928 rem 80446 bytes strings 

938 rem 875803 bytes free (B) 

948 rem (bei 2 dötensaetzen) 

958 rem ==================== ===> 


RELATIVE INDEXDATEI 


18 rem relative index-datei====c16 
28 rem (p) commodore-welt-team 
39 rem zs===semoecrsmmermussssezmemcmmome 


48 rem (c) by harald beiler 
58 rem 
68 rem 


78 rem basic v3.5 
88 rem c16/116/plus4 


98 rem ========2==================- 
188 df$[1)="Buch-Nr........ er 
118 df$(2)="Titel.......... ® 
128 df$(3)="Autor.......... = 
138 df$(4)="Erschein.Jahr.." 
148 df$(5)="Verlag......... he 
158 df$(6)="Thema.......... 3 


168 dm=888:df=6:cr$=chr$( 13) 

178 dimid$( dm) 

188 dimin( dm) 

198 dimdx$(df) :printchr$( 14) 

288 scnelr 

218 print:print 

228 printtab(3)chr$( 18)" Relative 
Index-Datei "chr$( 146) :print 

238 print:print 

248 printtab(5)"1....... Datenkana 
ele oeffnen " 

258 printtab(5)"2....... Dateneing 
abe" 

268 printtab(5)"3.....-. Datenausg 
abe" 

278 printtab(5)"4....... Datenkana 
ele schliessen" 

280 print 

298 printtab( 3) "Bitte entsprechend 
e Taste anwaehlen!" 

300 gett$ 

318 onval(t$)gosub340,448,638 

328 ift$="4"then938 

330 goto398 

348 1f=8:dn$="fachbuch":r1l=151:gos 
ub 1878 

358 open2,8,3,"seg.fachb.,s,r" 

368 gosub 1828 

37@ ifds<>Bthenad=B:gol 0488 

388 input#2,ad 

398 fori=1toad:input#2,id$(i),inli 
):next 

400 f1=8 


<gg? 


<ie> 


ing? 
<con> 
<pd> 
<ah> 
<nl> 
<ki> 
<jg> 
<fa> 
<oh> 
<hf> 
<fn> 
<hh> 
<mk> 
<mm?> 
<oa> 
<pl> 
<kb> 
<hj> 
<ög? 


<ca> 
<kf> 


<dl> 
<dd> 
<dg> 


<fb> 
<ml> 


<hl> 
<1k> 
<ek> 
<dp> 
<fe> 


<dm> 
<fd> 
<na> 


-<oe> 


<oi> 


<bj> 
<bf> 


418 close2 

428 printchr$( 19) "Dateiarbeit kann 
begonnen werden." 

438 return - 

448 iffl=dthenprint:printtäb( 28) "K 
eine Daten im Speicher !":return 
458 scnelr:printer$chr$( 18)” DATEN 
-EINGABE "chr$( 146)" Relative Inde 
x-Datei "er$cr$ 

468 fori=1todf 

478 printdf$(i);:inputdx$(i) 

488 next 

498 ad=ad+1:rem einen record weite 
r 

588 id$(lad)=dx$[1):rem identitaets 
code = datenfeld I 

518 in(ad)=rn:rem recordnummer fes 
tlegen 

528 1Ir=25:fori=1t025:1r$=1r$+chr$( 
32) :next:rem spaces zum auffuellen 
eines datenfeldes 

538 fori=1t06 

5408 dx$li)=1left$(dx$(i)+left$(l1ir$, 
abs{ Ir-Ien( dx$(i)))),1r) 

558 next 

568 rc$="":rem variable recordstri 
ng definieren 

578 fori=Itodf:rc$=rc$+dx$(i):next 

588 rn=ad:rp=1:gosub1138 

598 printf#lf,rc$ 

688 gosub1920:gosub1198 

618 char1,8,13," Datensatz ist ge 

sichert ",1 

628 char1,8,14,"":print:goto248 

638 iffl=@thenprint:printtab(B)"Ke 

ine Daten im Speicher !":return 

648 scenclr:print:printchr$( 18)" DA 

TENAUSGABE "chr$( 146)” Relative In 

dex-Datei ":print 

658 input"Suchbegriff: 

t 

668 fFori=itoad 

678 ifnn$=id$(i)thengn=-i:i=ad:next 
:goto718 

688 next 

698 print:printtab(5) "Datensatz is 
t nicht vorhanden !" 

788 fori=1t0588:next:goto298 

718 rn=gn:rp=1:gosub-1130 

728 fori=iItorl:getf#lf,eg$:rc$=rc$+ 

eg$:next 

738 rem ----------------- 

748 rem definition der laenge 

758 rem der datenfelder 

268 DEM rer 

778 dx$( 1)=mid$(rc$, 1,25) 

788 dx$(2)=mid$(rc$,26,25) 

798 dx$(3)=mid$(rc$,51,25) 


"-nn$:prin 


<ob> 


<mp> 
<on?> 


<pd> 


<aj? 
<ef> 
<ce> 
<ef> 


<be> 
<pn> 


<pf> 


<po> 
<jp> 


<ma? 
<nc> 


<fn> 
<ce> 
<fa> 
<fb> 
<kn> 


<gj? 
<gm> 


<eg> 


<pn> 


<ij> 
ng> 


<ki> 
<nh> 


<mh> 
<ke> 
<gj? 


<je> 
<de> 
<kh> 
<jn> 
<jg> 
<kj> 


« 


TIPS & TRICKS 


(eigentlich schon ausrei- 
chend für komfortable 
Eingaben), nur, die Praxis 
zeigt Ihnen sicher, daß 
nicht jede Eingabe diese 
Länge benötigt. Sie müß- 
ten nun jedesmal bei kür- 
zeren Worten den Rest 
per Leertaste auffüllen, 
bis genau 25 Byte er- 
reicht sind, nicht mehr 
und nicht weniger. 

Eine elegantere Lösung 
bietet die Definition der 
Variablen LR und eines 
Leerstrings mit 25 Leer- 
zeichen. Die folgenden 
Zeilen bilden nun auto- 
matisch die richtige Ein- 
gabelänge für jedes Daten- 
feld, aufgefüllt mit den 
fehlenden Leerzeichen. 
In den Zeilen 560 bis 570 
wird die Gesamtlänge des 
Records (Datensatzes) ge- 
bildet, zur Variablen 

RC$ werden die jeweili- 
gen Datenfelder „addiert“, 
bis sie die vorgesehenen 
Record-Größe erreicht 
hat. Mit Zeile 1130 wer- 
den Low- und High-Byte 
der Record-Nummer be- 
rechnet und in Zeile 1140 
der Datensatz mit PRINT 
#15, P“, gefolgt von Re- 
cord-Nummer und Offset 
(rp=1), in den Floppy-Puf- 
fer geholt, worauf entwe- 
der das Abspeichern (Zei- 
le 590) oder das Einlesen 
(Zeile 720) erfolgen kann. 
Nach Auslesen des Flop- 
py-Kanals, dem Löschen 
des alten Datensatzes, 
werden die Datenkanäle 
für die relative Datei und 
die Diskettenstation ge- 
schlossen, und der Com- 
puter kehrt wieder ins 
Menü zurück. 


FLOPPY-FEHLER- 
MELDUNG OHNE 
AUSWIRKUNG 


Noch eine Anmerkung: 


Beim Eingeben und Ab- 
speichern eines neuen Da- 
tensatzes muß ja laut 
Zeile 930 jedesmal neu 
„positioniert“ werden, 
obwohl an dieser Stelle ja 
noch gar kein Record 
steht. Die penible Floppy 
meldet sich auch hier 

— wichtigtuerisch — mit 
RECORD NOT PRE- 
SENT, das heißt, ‚‚hier 
gibt’s noch keinen Daten- 
satz‘; aber das wissen wir 


888 dx$(4)=mid$lrc$, 76,25) 

818 dx$(5)=mid$(rc$, 181,25) 

828 dx$(6)=mid$(rc$, 126,25) 

830 rem daten ausgeben 

848 print 

858 fori=iItodf:printdf$(i)chr$( 32) 
dx$(i) :next 

868 gosub1198:char1,8,22," weiter 
mit <SPACE> ",1 

878 gett$:irft$<>chr$( 32) then878 
888 char1,8,16,"":print:goto248 
890 neh 


988 rem sequentielle suchdatei 
9182 rem auf diskette schreiben 
yan.:rem ee en 


938 printf#15,"s:seg.fachb." 

948 open2,8,3,"seq.fachb.,s,w" 

958 print#2,ad 

968 fori=1toad:print#2,id$(i)","in 
(i) :next 

978 gosub 1288 

988 end 

990: Tan SF ee 
1808 rem floppy-status auslesen 
ie gen ee 
1828 printchr${ 19) ds$ 

1838 return 

1B40 KEN - SF 
1858 rem relative datei oeffnen 
BON: Een re 
1978 open15,8,15 

1888 openlf,8,1f,dn$+",1,"+chr$(rl 


) 

1898 return 

11808 rem ------------------------- 
1118 rem relative datei lesen 
1128 rem -------------------- -- 


1138 ax=rn:hb=int( ax/256) :1b=ax-25 
6*hb 

1148 print#15,"p"+chr$( 1f+96) +chr$ 
(1b) +chr$(hb) +chr$(rp) 

1158 return 

1168 rem >3=7=>>7 ee 
1178 rem dateien schliessen 

188 rem. are — ee 
1198 fori=1t06:dx$(i)="":next:rc$= 
"":return 

1288 cloself 

1218 close15 

1228 return 

1238 rem ===============2==2======= 


1248 rem 12277 bytes memory 


1258 rem 83388 bytes program 

1269 rem AB1A4B bytes variables 
1278 rem 96498 bytes arrays 

1288 rem 99487 bytes strings 

1298 rem 81788 bytes free (B®) 

13028 rem (bei B datensaetzen) 

1310 rem SFr ren 


schließlich selber, wir wol- 
len ja erst einen dort hin- 
schreiben. Am besten gar 
nicht drum kümmern, 
auch aus diesem Grund ist 
die Floppy-Fehlerabfrage 
für ein Relativ-Dateiver- 
waltungsprogramm sehr 
wichtig, um nicht mitten- 
drin einen Programmab- 
bruch zu bekommen. 


RELATIVE DATEIEN 
LESEN 


Nun könnten Sie die gan- 
ze Prozedur wiederholen, 
also wieder ‚2° wählen, 
um einen weiteren Re- 
cord einzugeben (das kön- 
nen Sie so oft machen, 
wie Sie es unter Zeile 170 
beim DIM-Befehl eingetra- 
gen haben); aber viel inter- 
essanter wäre nun das Be- 
trachten eines solchen Da- 
tensatzes, schon zur Über- 
prüfung, ob auch alles zu 
Ihrer Zufriedenheit gespei- 
chert wurde. Wählen Sie 
bitte Menüpunkt drei und 
geben bei der Nachfrage 
des Rechners Ihr Such- 
wort ein (es kann auch na- 
türlich eine Zahl sein). In 
diesem Beispielprogramm 
haben wir uns auf Daten- 
feld 1, die „Buchnummer“ 
geeinigt. Nach ganz kur- 
zer Suche bringt der Rech- 
ner den gewünschten Re- 
cord auf dem Bildschirm. 
Betrachten wir uns diesen 
Ablauf doch einmal näher: 
In Zeile 670 wird das ein- 
gegebene Suchwort mit 
den gespeicherten Identi- 
fizierungs-Codes vergli- 
chen, hat’s der Rechner 
gefunden, geht die Rech- 
nerei los (keine Angst, 
nicht für Sie, sondern für 
Ihren Computer). Auch 


GET STATT INPUT 


hier wieder auf das kleine 
Unterprogramm ab Zeile 
930 zurückgreifen, um 
den Positionierungszeiger 
(wie beim Speichern) auf 
den richtigen Datensatz 
zu bringen. In Zeile 720 
beginnt er mit dem Einle- 
sen der Daten von Disket- 
te. Doch halt, hier fällt 
uns ein Unterschied auf. 
Statt INPUT# steht da 
plötzlich GET#! Die Er- 
klärung ist ganz einfach: 
Mit dem Befehl INPUT# 


TIPS & TRICKS. 


lassen sich nur höch- 
stens 88 Byte in einem 
Stück in den Compu- 

ter einlesen; sind es 
mehr, steigt er mit der 
schon erwähnten Fehler- 
meldung STRING TOO 
LONG ERROR aus. Da 
wir wissen, daß unser Re- 
cord über 151 Byte lang 
ist, geht es nur über die 
Einlesemöglichkeit mit 
GET#, das jedes Byte ein- 
zeln in den Computer 
lädt. Zwar ein wenig lang- 
wieriger, aber in diesem 
Falle unumgänglich. Üb- 
rigens: Dieser Grundsatz 
gilt immer, nicht nur bei 
relativen Dateien. 

Die einzelnen Byte sind 
als EG$ definiert, zusam- 
mengesetzt ergeben sie 
wieder den bereits be- 
kannten RC®. In dieser 
geballten Gesamtheit von 
151 Byte sieht er natür- 
lich auf dem Bildschirm 
chaotisch aus, darum tei- 
len wir ihn vorher wieder 
in die einzelnen Daten- 
felder mit ihrer vorgese- 
henen Länge ein. 

Ist dies erledigt, so wird 
lediglich ab Zeile 850 der 
geforderte Datensatz auf 
Bildschirm ausgegeben — 
wie Sie es nicht anders er- 
wartet haben. Das Menü 
erscheint, und Sie kön- 
nen nun weitere Daten- 
sätze eingeben oder auf- 
rufen. 

Das Wichtigste aber 
kommt zuletzt: Haben 
Sie die Arbeit an diesem 
Relativ-Dateiprogramm 
beendet, dürfen Sie nicht 
einfach den Computer 
ausschalten. 


WICHTIG: ORDENT- 


LICHER ABSCHLUSS 
DER DATEIARBEIT 


Sie müssen unbedingt 
Punkt ‚‚4“ anwählen! Nur 
damit wird eine relative 
Datei ordnungsgemäß ab- 
geschlossen und die der- 
zeit gültige sequentielle 
Datei mit den Suchbegrif- 
fen und den Record-Posi- 
tionen auf Diskette zu- 
rückgeschrieben. Da auch 
hier Vorsicht die Mutter 
der Porzellankiste ist, ma- 
chen wir das nicht mit 
dem Klammeraffen (der 
ein bereits bestehendes 


File auf der Disk einfach 
mit neuem Inhalt über- 
schreibt), sondern 
SCRATCHen zuerst das 
alte, bevor wir das neue 
ablegen. 

Ebenso wie bei der sequen- 
tiellen Datei gilt auch hier: 


Probieren geht über Stu- 
dieren. Arbeiten Sie mit 
diesem Programmiergerüst, 
ändern Sie es nach Ihren 
Wünschen ab, bis Sie die 
für Sie passende Version 
gefunden haben. 

In einem sind wir uns aber 


sicher: Wenn Ihnen das 
Arbeiten mit einer relati- 
ven Index-Datei in Fleisch 
und Blut übergegangen ist, 
werden Sie sie auf alle 
Fälle der sequentiellen 
Dateien-Verwaltung vor- 
ziehen. hb 


Mit dem Kompressor 
Speicherplatz sparen 


BASIC-Programme mit BASIC-Programmen zu 
verändern, ist im Prinzip ganz einfach. Hier wird dies 
an einem leicht verständlichen Kompressor gezeigt. 


Jeder, der sich etwas mit 
BASIC-Programmierung 
beschäftigt, kennt das: 
Schreibt man ein Pro- 
gramm, so helfen Kom- 
mentarzeilen, es übersicht- 
licher zu gestalten. Auch 
zusätzliche Leerzeichen 
machen es leichter lesbar. 
Leider wird dieser Vorteil 
mit einem unnötigen ho- 
hen Speicherplatzver- 
brauch und einer mit der 
Länge des Programms ver- 
bundenen Verlangsamung 
erkauft. Daher ist es sinn- 
voll, das fertige Programm 
so weit wie möglich zu 
komprimieren. 


REM-ZEILEN KILLEN 


Zuerst wirft man alle 
REM-Zeilen und die Leer- 
zeichen heraus. Schon al- 
lein. dadurch kann man 
ein Programm oft um 30 
bis 40 Prozent verkürzen. 
Eine weitere Verkürzung 
erreicht man durch Ver- 
längern der BASIC-Zeilen, 
indem man mehrere Zei- 
len hintereinanderhängt. 
Dies kann bis zu einer BA- 
SIC-Zeilenlänge von 255 
Byte geschehen, wobei 
hier die Länge der Zeile 
im Speicher und nicht auf 
dem Bildschirm gemeint 
ist. Auf dem Bildschirm 
kann eine solche Zeile 
noch länger werden, wenn 
viele Token wie GOSUB, 
PRINT vorkommen, die 
im Speicher ja als je ein 
Byte abgelegt sind. 

Als letztes bleibt noch ei- 
ne Umnumerierung der 
Zeilen. Zum Beispiel 


braucht GOSUB6 nur 
zwei Byte, GOSUB60000 
jedoch sechs Byte. 

Wie all dies durch ein BA- 
SIC-Programm realisiert 
werden kann, soll hier be- 
schrieben werden. Das Pro- 
gramm ist so aufgebaut, 
daß es möglichst verständ- 
lich und übersichtlich ist, 
ohne dadurch wesentlich 
an Geschwindigkeit zu 
verlieren. Ferner können 
alle Einzelteile mit kleinen 
Änderungen getrennt in 
anderen Programmen ver- 
wendet werden. 

Wie kann man nun BASIC- 
Programme verändern? 

In der Regel beginnt das 
Programm in der Speicher- 
stelle 4096 (BASIC-Anfang). 


ZWEI NULLEN 
SIGNALISIEREN 
DAS ENDE 


Dieser Wert ist in den 
Speicherstellen 43 und 44 
enthalten und kann mit 
PRINT PEEK (43)+256* 
PEEK (44)-1 herausgele- 
sen werden. In dieser Spei- 
cherstelle muß eine Null 
stehen (sonst reagiert der 
Computer auf NEW oder 
RUN mit SYNTAX 
ERROR). 

Dann folgen in 4097 und 
4098 der Linkpointer 
(oder Koppeladresse) der 
nächsten Zeile und in 
4099 und 5000 das LO- 
Byte und das HI-Byte der 
Zeilennummer. Danach 
folgt die eigentliche BASIC- 
Zeile, welche wieder mit 
einer Null abgeschlossen 
ist. Dann wieder Linkpoin- 
ter, Zeilennummer ... So 
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geht es weiter, bis das Pro- 
gramm zuende ist. Man er- 
kennt dies an zwei Nullen 
anstelle eines neuen Link- 
pointers. 


ENDPRODUKT 
KLEINER ALS 
QUELLPROGRAMM 


Um nun ein Programm 
durch ein anderes zu ver- 
ändern, müssen beide im 
Speicher stehen. Hierzu 
lädt man das zu verän- 
dernde Programm und 
setzt dann den BASIC- 
Anfang hoch mit: 


PRINT PEEK(46)+1 
(Diese Zahl merken:=A) 
POKE 44,A:POKE A+* 
256,0:NEW 


Jetzt den Kompressor la- 
den und starten. Das Pro- 
gramm fragt zuerst nach 
der maximalen Bytezahl 
pro Zeile. Gibt man hier 
Nullaan, so werden nur die 
Remarks und die Leerstel- 
len entfernt (ohne auf 
GOTO ... zu prüfen!). Die 
maximale Zahl ist 255. 
Dann sind die Zeilen zum 
Teil nicht mehr veränder- 
bar, wenn sie mehr als 80 
Zeichen haben. Will man 
dies nicht, so kann man 
60 angeben. Das weitere 
macht dann das Pro- 
gramm. Wie, soll nun im 
einzelnen für jeden Teil 
extra erklärt werden. 
Zunächst zu Variablen- 
liste und Subroutinenbib- 
liothek (Zeile 300 bis 780). 
Was die Subroutinen im 
einzelnen machen, wird 
durch die REM- Zeilen er- 
klärt. Näheres dazu noch 
an den Stellen, wo sie ge- 
braucht werden. Hier soll 
nur noch einmal darauf 
hingewiesen werden, daß 


Lesen Sie bitte weiter auf Seite 15 


TIPS & TRICKS 


18 rem basic-kompressor========616 

28 rem (p) commodore-welt-team 

38 rem ==========2=====2=2=202=2==22020=- 

AU rem (c) by r. schmid-fabian 

58 rem 

68 rem 

78 rem basic v3.5 . 

88 rem c16/116/plus4 

98 rem ==============22=====222=== 
188 c1$=chr${ 147): cA$=chr$t{ 17) 
118 p1$=c1$+c4$+c4$+c4$:ho$=chr$f 1 

9) 

128 p2$=c1l$:for i=1t013:p2$=p2$+c4 

$:next 

138 rem -------------------- -- - 
148 rem variablenliste 

158 rem ------------------------- 
1608 c=®:rem codezahl im speicher 
178 1v=8:1m=@:rem laufvariable zum 
kopieren/max. bytes pro zeile 

188 nb=4896:nm=nb:rem nulladr. d. 
basiczeile vorh./nachh. 

198 zn=8:12=®8:hz=®:rem zeilennumme 
r 

288 ab=®:eb=®:rem anfang/ende basi 
czeile 

218 mz=308:nz=®:1z=®:rem max. zeil 
enanzahl/nr.d.zeile/laenge d. zeil 
e 

228 dim nr(mz) ,‚gs(mz+1):rem zeilen 
nummer/zeilennr. gesperrt 

230 goto 788 


248 rem =================2=220====22= 
258 rem subroutinen bibliothek 
268 rem -------------------------- 
278 rem basicanfang und -ende 

288 rem und zeilennummern 

298 rem -------------------------- 


388 lv=nm+4:ab=nb+5:eb=peek( nb+1) + 
256*peek( nb+2) -2:hk=8 

318 if eb<® then return 

328 lz=peek(nb+3) :hz=peek(nb+4) 
330 zn=1z2+256*hz:printho$"zn="zn 
348 nz=nz+1:nr(nz)=zn 

358 if nz+1>mz then print"mz zu kl 
ein!":end 

368 return 

378 rem ---------------------- - 
388 rem neue adresse berechnen 
398 rem ------------------- -- 
488 ad=1v+2 

418 ha=int( ad/256) : la=ad-ha#256 
428 pokenm,®:pokenm+1,1la:pokenm+2, 
ha 

438 nb=eb+1:nm=1lv+1:return 

448 rem --------------------- -- 
A5Bß rem goto,gosub 

4608 rem ----------------------- 


470 z$="" 

488 for s=1 to 6:sc=peekl(i+s) 

498 if sc=44 then 530:rem komma 
588 if sc=58 then 538:rem doppelpu 


sı8 if sc=® then 538:rem zeilenend 


528 z$=z$+chr$( sc) :nexts 
538 s=s-1:w=val(z$) :gosub648:gs( tt) 


548 if um=1 then return 

558 if sc=44 then gs(nz+1)=1:i=i+s 
+1:goto 478 

568 return 

578 rem ------ then, else -------- 
588 i=i+t1:c=peek(i):if i=eb then r 
eturn 

598 if c=32 then 588 

688 if c=137 ar c=141 then gosub 4 
78:return 


61Q if c>47 then if c<58 then i=-i- 
1:gosub 478 

628 return 

638 rem --- zeilennr. suchen in nr 
0) 


648 for t=1 to mz 

658 if w=nr(t) then return 

668 next:t=®:return 

670 rem --- zeilennr. ersetzen --- 
688 z$=str$lt+sz):for ii=2 to len( 
2$) :a=asc(mid$( z$,ii,1)) 

698 lv=1v+1:pokelv,a:next ii:i=i+ts 
return 

788 rem ------ programm beenden -- 
718 pokenm, @:pokenm+1,8:pokenm+2,8 
728 ha=int( (nm+3) /256) :1la=( nm+3)-h 
a*256 

738 printp1$"poke44,16:poke45,";la 
;":poke46,";ha 

748 printc4$c4$"sys34840” 

758 printho$ 

768 poke1319,13:poke132®, 13 

778 poke239,2:end 


. 788 printel$:input"maximale byteza 


hl pro zeile"; Im 


798 rem ----------------------- 
888 rem rem und blank entfernen 
818 rem zeilennummern eintragen 
828 rem ----------------------- 


830 printcl$cAg"*rxessr erster dur 
chlauf #r@xxrr22c20207 

848 nb=4896:nm=nb:nz=® 

858 gosub 3@8:rem anfang,ende bere 
chn. 

868 pokenm+3,1z:pokenm+4,hz:rem ze 
ilennr. 

878 if eb<® then pokenm, @:pokenm+1 
‚d@:pokenmt2,8:goto 1958 


<no> 
<bk> 
<ge> 


<ee> 


<cf> 
<ge> 


<fh> 
<jh> 


<fk> 
<pc> 
<ao> 


<po> 
<jn> 


<jg> 


<od> 
<gk> 


<cn> 
<ep> 
<dm> 
<nb> 
<og> 


<oe> 


<lc> 
<np> 
<ng> 


<ld> 


<hk> 
<ee> 
<ld> 
<ai> 
<en> 


<ji> 
<io> 
<im> 
<pc> 
<me> 


<ff> 
<kp> 


<me> 
<lf> 


<ad> 
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888 for i=ab to eb:c=peek(i) 

898 if c=34 then if hk=® then hk=1 
: goto 968 

9@8 if c=34 then if hk=1 then hk=® 
: goto 968 

918 if hk=1 then 968 :rem in anfue 
hr.z. 

928 if c=32 then 9798 :rem blank 
938 if c<>143 then 968 

948 if peekli-1)=58 and i>ab then 
lv=1v-1:rem doppelpunkt vor rem en 
tfernen 

958 i=eb: goto 978 

968 l1v=1v+1:pokelv,c:rem kopieren 
978 next i 

988 if hk=1: then lv=1v+1:pokelv,34 
998 gosub 48®:rem neue adresse 
1008 goto 858 


1818 rem --------------------- 
1028 rem auf sprungadr. u. if 
1838 rem untersuchen 

1848 rem -------------------- ----- 


1858 print"***### zweiter durchlau 

EB 2 2 2 .2.2.2.2.2:2.2:2.522.2020) 

1868 if im=@ then 1278 

1878 nb=4896:nz=® 

1088 ka=peek( nb+1) +256*peek( nb+2) 
1898 if ka=® then 1278 

1188 ab=nb+5:eb=ka-2:nz=nz+1:print 

ho$"nz="nz 

1118 for i=ab to eb:c=peek(i) 

1128 if c=34 then if hk=® then hk= 
1: goto 1218 

1138 if c=34 then if hk=1 then hk= 

8: goto 1218 

1148 if hk=1 then 121 ®:rem in anf 

uehr.z. 

1158 if c<137 then 1218 

1168 if c=143 then i=eb: goto 121 

Ö:rem remarks 

1178 if c=137 then gosub 478:gs(nz 

+1)=1:goto 1218:rem goto 

1188 if c=141 then gosub 478:goto 
1218:rem gosub 

1198 if c=139 then gs(nz+1)=1:goto 
1218:rem if 

1288 if c=1690rc=213 then gosub 58 

8:rem then 

1218 next i 

1228 nb=ka-1 

1238 goto 1888 

1248 rem ------------------------ 
1258 rem 
1268 rem ------------------------- 


1270 print"**#*##* dritter durchlau 
f senamereegenegee" 

1288 nb=4896:nm=nb:nz=®:gs( 1)=1 
1298 lv=nm+4:ab=nb+5:eb=peek( nb+1) 


+256*peek( nb+2) -2:nz=nz+1 


<cl> 
1308 if eb<® then 718 <pc> 
1318 if eb<ab then 1v=1v-5:s5p=1:go 
to 1458 2 <pf> 
1328 pokenm,®:pokenm+1,1:pokenm+2, 
1 <el> 
1338 lz=peek( nb+3) :pokenm+3,1z <am> 
1348 hz=peek(nb+4) :pokenm+4,hz <nf> 
1358 printho$"zn="1z+256*hz <lo> 
1368 for i=ab to eb:c=peek[i) <gg> 
1378 if i>ab then 1438 <np> 
1380 if sp=1 then sp=@:goto 1438 <1j> 
1398 if 1m=8 then 1438 <jo> 
1488 if gs{nz)=1 then 1438 <ne> 
1418 zi1=zlteb-ab+5:if zi>1Im then z 
1=9:g0t01438 <gk> 
1428 1v=1v-4:pokelv,58 <hp> 
1438 1v=1v+1:pokelv,c <ad> 
1448 next <mn> 
1458 nb=eb+1:nm=1v+1 <pn> 
1468 goto1298 <1lm> 
1470 rem ======e=n=d=e============ cbj> 


(Fortsetzung von Seite 13) 


häufig gebrauchte Unter- 
programme am Anfang 
stehen sollten, da ja im- 
mer vom Anfang her da- 
nach gesucht wird. 

REM und BLANK entfer- 
nen (Zeile 830 bis 1000): 
Dies ist noch die leichteste 
Übung. Zuerst muß be- 
rechnet werden, von wo 
bis wo die eigentliche BA- 
SIC-Zeile geht (AB, EBin 
GOSUB 300). Nur inner- 
halb dieser Werte darf 


. nach dem Code für REM 


(143) oder SPACE (32) 
gesucht werden. Ferner 
müssen die Codes inner- 
halb von Anführungszei- 
chen überlesen werden. 
Man kopiert also das gan- 
ze Programm einmal, wo- 
bei es wieder bei 4096 be- 
ginnt und man die REM 
und SPACE einfach ‚‚über- 
sieht‘. LV dient dazu als 
Laufvariable und zeigt im- 
mer auf die Stelle, wo das 
neue Programm gerade 
weitergeschrieben wird. 
Da das Endprodukt klei- 
ner ist als das Quellpro- 
gramm, ergeben sich durch 
das Überschreiben keine 
Probleme. Natürlich muß 
die Zeilennummer wieder 
an die richtige Stelle 
(NM+3, NM+4) gepoked 
und die Link-Adresse neu 
berechnet (GOSUB 400) 
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und eingepoked werden 
(NM+1, NM+2). Wird das 
Programmende gefunden, 
müssen die entsprechen- 
den Nullen gesetzt wer- 
den. Nach der gleichen Me- 
thode kann man sich auch 
andere Möglichkeiten aus- 
denken, wie zum Beispiel 
lange Variablennamen auf 


SPRÜNGE UND 
VERZWEIGUNGEN 


zwei Stellen zu kürzen 
oder Listschutzcodes 
(SHIFT/L = 204) zu ent- 
fernen sind. Man muß nur 
darauf achten, daß das 
Programm dadurch nicht 
länger wird. Wenn es län- 
ger werden soll, muß man 
dies entsprechend berück- 
sichtigen. 

Auf Sprungadressen und 
IFuntersuchen (Zeile 1050 
bis 1238): Will man zwei 
BASIC-Zeilen miteinander 
verketten, so muß vorher 
geprüft werden, ob die er- 
ste kein IF oder GOTO 
enthält und die zweite 
nicht durch GOTO, 
GOSUB oder THEN ange- 
sprungen wird. Die ent- 
sprechenden Zeilen müs- 
sen dann in GS(n) gesperrt 
werden, Will man diesen 
Teil ohne den REM-Killer 
verwenden, muß auch 


ee 


» 


2 Be 27" 


« 
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noch auf REM (143) un- 
tersucht werden. Kommt 
hinter einer Zeilennum- 
mer nach GOTO oder 
GOSUB ein Komma, so 
wird nach einer weiteren 
Zeilennummer gesucht 
(ON-Anweisung). Dieser 
Programmteil könnte zum 
Beispiel in einer Doku- 
mentationshilfe verwen- 
det werden. 

Superzeiler (Zeile 1240 
bis 1460): Dieser Teil des 
Programms ist, für sich al- 
leine betrachtet, eigent- 
lich am interessantesten. 
Mit ein paar Änderungen 
kann man ihn unabhängig 
vom Rest verwenden, um 
beliebige BASIC-Zeilen mit- 
einander zu verknüpfen. 
Von den Unterprogram- 
men werden nur die Zei- 
len 710 bis 740 und die 
Zeile 770 gebraucht. 
Zuerst die Änderungen: 
Folgende Zeilen bitte weg- 
lassen: 

1310, 1380 bis 1400, 
1420. 


Folgende Zeilen bitte ab- 
ändern: 
1300 if eb<O then 1500 
1370 if i=ab and c=174 
then Iv=lv—4:poke 
nm,58:goto1440 
Folgende Zeilen bitte um- 
numerieren: von 710 bis 
770 nach 1470 bis 1550. 


UNBERECHENBARE 
PHÄNOMENE 


Nachdem der Superzeiler 
abgespeichert ist, lädt 
man das zu verändernde 
Programm. An den An- 
fang jeder Zeile, die man 
mit der vorhergehenden 
verketten will, schreibt 
man (in den Zwischen- 
raum nach der Zeilennum- 
mer) einen Pfeil nach 
oben ‚T‘. Dann wird wie- 
der, wie am Anfang be- 
schrieben, der BASIC-An- 
fang hochgesetzt, der 
Superzeiler geladen und 
gestartet. Der allgemeine 
Aufbau ist ähnlich wie 
beim REM-Entfernen. 
Bemerkenswert ist die Be- 
triebssystemroutine 

SYS 34840, welche die 
BASIC-Zeilen neu bindet 
(die Koppeladressen wer- 
den neu berechnet). Hier 
zu müssen natürlich der BA- 
SIC-Anfang und das BA- 


SIC-Ende wieder herun- 
tergesetzt werden. Die ent- 
sprechenden Adressen für 
die Poke-Befehle werden 
errechnet und auf dem 
Bildschirm ausgedruckt. 
Nun kommt der ‚pro- 
grammierte Direktmodus“‘ 
zum Einsatz: Die Befehle 
werden so am Bildschirm 
ausgegeben, daß der Cur- 
sor, wenn er wieder sicht- 
bar wird, auf der Befehls- 
zeile steht, In den Tasta- 
turpuffer (1319 bis 1328) 
wird der RETURN-Code 
(13) gepoked und eine der 
Anzahl der Befehlszeilen 
entsprechende Zahl in 
239 gepoked. Erreicht 

das Programm nun einen 
END-Befehl, wird der Ta- 
staturpuffer abgearbeitet 


und die Befehle ausgeführt. 


DER KOMPRESSOR 
TESTET SICH SELBST 


Nachdem Sie das Pro- 
gramm abgetippt und ab- 
gespeichert haben, wollen 
Sie sich sicher davon über- 
zeugen, ob es auch ohne 
Fehl und Tadel ist. Dazu 
schalten Sie sicherheits- 
halber den Computer 
kurz aus und wieder ein 
und laden den Kompres- 
sor. Dann setzen Sie den 
BASIC-Anfang, wie oben 
beschrieben, hinter das ge- 
speicherte Programm und 
laden den Kompressor 
noch einmal. Starten Sie 
ihn und geben für die ma- 
ximale Bytezahl 255 ein 
und warten ungeführ vier 
Minuten. Dann RETURN 
in der GOTO .. 
ken und weitere zwei Mi- 
nuten warten. Jetzt ist 
der im unteren Speicher- 
bereich vorhandene 
Kompressor komprimiert. 
Um ihn abspeichern zu 
können, fahren Sie bitte 
mit dem Cursor nach 
oben bis zur ersten Be- 
fehlszeile und drücken 
RETURN. Mit diesem 
verdichteten Kompressor 
komprimieren Sie jetzt 
den unveränderten und 
vergleichen dann die bei- 
den verdichteten Program- 
me durch VERIFY mit- 
einander. Das hört sich 
etwas umständlicher an, 
als es ist. Ausprobieren! 
Sie werden staunen, um 


„Zeile drük- 


stilab. Ein Programm, 
welches optimal auf Ge- 
schwindigkeit geschrieben 
ist, wird nur um ungefähr 
10 Prozent schneller. 
Aber das ist auch schon 
was. Der Hauptnutzen 
liegt jedoch im Einsparen 
von Speicherplatz und 
Ladezeit. 


wieviel kleiner das Pro- 
gramm wird. 
Übersichtlich geschriebe- 
ne Programme werden 

um 40 bis 50 Prozent kür- 
zer. Die oft bei BASIC- 
Kompressoren versproche- 
ne Beschleunigung des 
Programms hängt jedoch 
stark vom Programmier- 


Welt- 
handel 


Ein intelligentes Programm, das Elemente des 

Wirtschafts- und des Strategiespieles geschickt kombi- 
niert. Bis zu sechs Spieler können den die Erde 
umgebenden Raumkubus erforschen und mit 
neuentdeckten Welten Handel treiben. 
Die Regierung der vereinigten Völker der Erde hat 
aus den Magazinen des abgeschafften Militärs zwei 
wichtige Erfindungen für die Öffentlichkeit freigege- 
ben: den Hyperraumantrieb und den Transmitter. 
Aufgabenstellung ist, den Weltraum in der Umgebung 
der Erde zu erforschen. Ziel der Forschungsarbeit ist, 
unbewohnte Planeten, die sich für eine Besiedlung 
durch Menschen eignen, zu finden und zu beherrschen. 
Im Spiel „Welthandel“ wird der die Erde umgebende 
Weltraum in einen Würfel von 125 Kuben eingeteilt, 
deren Größe der Reichweite des Hyperraumantriebs 
Du een, In der Mitte des Würfels befindet sich die 
rde. 

Ihre Aufgabe ist es, die Forschungsarbeit mit maxi- 
mal fünf weiteren Mitbewerbern zu übernehmen. 
Jeder von Ihnen kauft von der Regierung ein Raum- 
schiff auf Bankkredit. Dann kann die Reise losgehen. 
In jedem Kubus, den Sie erreichen, müssen Sie einen 
Transmitter installieren. Dafür erhalten Sie eine Gut- 
schrift. Auch für jeden Planeten, den Sie entdecken, 
verdienen Sie eine erkleckliche Summe. Durch den 
Transport von Siedlern zu diesen neuen Welten kön- 
nen Sie Ihr Guthaben noch weiter aufstocken. 
Die Siedler haben zu Anfang großen Bedarf an tech- 
nischen Waren. Die können Sie ihnen von der Erde 
besorgen. Doch nur dann, wenn Sie ein entsprechen- 
des Guthaben besitzen. Hier läuft nichts auf Kredit. 
Haben Sie einen Planeten mit der nötigen Technik 
versorgt, beginnen die Siedler mit der Produktion. 
Jeder Planet spezialisiert sich auf bestimmte Erzeug- 
nisse, die Sie bei einer Landung angeboten bekommen. 
Haben Sie selbst eine Ladung Waren an Bord, kann 
sie hier verkauft werden. Auch die Erde ist ständiger 
Abnehmer von Waren der anderen Planeten. So 
kommt ein reger Handel zustande. Es bleibt Ihnen 
überlassen, ob Sie erst alle Kuben erforschen, oder 
mit dem Handel beginnen, sobald Sie durch Erfor- 
schung und Besiedlung genug verdient haben. 
Die Preise, die Sie beim Ein- oder Verkauf erzielen, 
werden.durch Angebot und Nachfrage, sowie durch 
zufällige Vorkommnisse bestimmt. Bei Planeten, die 
Sie noch nicht oder selten aufsuchten, können Sie 
teurer verkaufen. 
Sollten Sie nach einer Fahrt durch den Hyperraum 
in der Nähe eines Schwarzen Loches wieder in den 
Normalraum eintreten, bedeutet das höchste Gefahr 
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TIPS & TRICKS 


für Schiff und Besatzung. Die Notautomatik installiert 
schnellstens einen Transmitter und steuert das Schiff 
durch diesen zur Erde zurück. Das Schiff hat dabei 
großen Schaden erlitten; es kann die Erde nur nach ei- 
ner gründlichen Reparatur wieder verlassen. Und die 
ist teuer. 

Das Spiel läuft auf dem Plus4 und C16/116 mit min- 
destens 32 KByte. Nach dem Laden und RUN geben 
Sie zuerst die Anzahl der Mitspieler ein. Dann zeigt der 
Bildschirm ein Abbild des zu erforschenden Raumes. 
In der Mitte der obersten Zeile ist ersichtlich, wel- 
cher Spieler an der Reihe ist. Die unterste Zeile infor- 
miert Sie darüber, was sich in dem Kubus befindet, 
dessen Symbol blinkt. An diesem Blinken erkennen 
Sie Ihren jeweiligen Standpunkt. Außerdem werden 
im Feld unter der dritten Ebene die Guthaben der 
Spieler angezeigt. Rot bedeutet hier: Kredit. 

Im Feld unter der Spielernummer wird der nächste 
Spielschritt angezeigt. Gibt es mehrere Möglichkeiten, 
werden sie an der rechten Seite unter Angebote ge- 
zeigt. Wollen Sie unter ihnen wählen, bewegen Sie 

den Joystick nach oben oder unten. Das können Sie 
auch mit den Cursortasten erreichen. Dann drücken 
Sie den Feuerknopf und geben RETURN ein. Das tun 


SPIELER 1i 


4 


FEIM SCHIFF 


REIS = 
6888 
3 


P 


" 


Sie auch, wenn sich nur eine Möglichkeit bietet. Wenn 
Sie das Schiff starten, wird der Kubus, in dem Sie sich 
befinden, rotblinkend eingerahmt. Nun können Sie 
mit dem Joystick oder den Cursortasten das Ziel su- 
chen. Zwei Transportarten sind hier möglich: 

© Siekönnen den Hyperantrieb benutzen. Mit die- 
sem erreichen Sie nur einen direkt an Ihre Startposi- 
tion grenzenden Kubus, auch in den Ebenen darunter 
oder darüber. Ein weißer, blinkender Rahmen infor- 
miert über diese Möglichkeit. Diese Art der Bewegung 
ist teurer. Sie wird nur benutzt, um bisher nicht er- 
forschte Kuben zu erreichen. Am Anfang ist Sie aller- 
dings die einzig mögliche Fortbewegung. 

@ Wenn schon einige Räume erforscht sind, können 
Sie per Transmitter in jeden entsprechenden Raum 
springen, egal, wie weit er vom Start entfernt ist. 
Außerdem fallen hier niedrigere Kosten an. Diese 
Möglichkeit erkennen Sie am grünblinkenden Rah- 
men. 

Alle nicht erreichbaren Kuben, ebenso der Startkubus, 
werden durch rotblinkende Rahmen gekennzeichnet. 
Wenn Sie das gewünschte Ziel eingestellt haben, wird 
der Transport durch Feuer oder RETURN ausgelöst. 
Haben Sie das Ziel per Hyperantrieb erreicht, befin- 
det sich Ihr Schiff in einer bisher unbekannten Ge- 
gend. Hier gibt es drei Möglichkeiten: 


© Es kann sich an dieser Stelle ein schwarzes Loch be- 
finden, dann bringt die Notautomatik Schiff und Be- 
satzung zur Erde zurück. Der entsprechende Kubus 
wird durch ein Kreuz gekennzeichnet und für weite- 
re Anflüge gesperrt. 

@ Sollte der Kubus leer sein, setzen Sie den Transmit- 
ter aus und kassieren Ihre Prämie. Der Kubus wird als 
leer gekennzeichnet. 

® Die Entdeckung eines unbewohnten Planeten wird 
durch eine gelbe Kugel markiert. 

Jetzt hält die Erde für Sie und Ihr Schiff einen Sied- 
lertrupp bereit. Nachdem die Siedler das Schiff ver- 
lassen haben, färbt sich das Symbol des Planeten grün. 
Das bedeutet, daß die Siedler nun am Werke sind und 
technische Waren von der Erde benötigen. Die kön- 
nen Sie zu einem Sonderpreis beziehen. Nehmen Sie 
das Angebot an, es wird nicht wiederholt! Der norma- 
le Preis ist doppelt so hoch. 

Haben sich die Siedler entschieden, welche Waren sie 
für die Zukunft produzieren und verkaufen wollen, 
wird das Symbol der grünen Kugel durch den ersten 
Buchstaben der Waren ersetzt. Von da an können Sie 
mit diesem Planeten unbeschränkt Handel treiben. 
Sie werden bald merken, daß Planeten, die öfter be- 
liefert wurden, immer dunkler erscheinen und nur all- 
mählich, wenn sie länger nicht besucht wurden, wie- 
der heller werden. Daran können Sie ablesen, wo Sie 
besser kaufen und verkaufen können. 

Es steht Ihnen frei, entweder zu handeln, oder weiter 
auf Entdeckung zu gehen. Sie können auch beides ab- 
wechselnd tun. Doch der Anreiz, neuen Planeten 
nachzujagen, ist groß, denn die Prämien schlagen gut 
zu Buche. 


mn m 


VERKETTUNG VON ZEILEN 


Ein Phänomen sei hier erwähnt, dessen Ursachen 
noch nicht bekannt sind: die Raumkrümmungen. Ur- 
plötzlich werden Sie aus dem Hyperflug gerissen und 
landen nicht an der gewünschten Stelle. Wo, ist nicht 
vorhersehbar. Es kann sich um einen bereits erforsch- 
ten Kubus oder um einen unbekannten handeln. 

Zum Glück schadet so ein Fehlsprung weder den Men- 
schen, noch dem Schiff. 

Jeder Spieler kann der Reihe nach drei Raumfahrten 
unternehmen. Danach ist eine Runde vorbei und die 
Bank zahlt für Guthaben oder kassiert für Kredite. 

Ist der nächste Spieler an der Reihe, wechselt der 
Bildschirm seine Farben. Das ist für Sie das Zeichen, 
den Joystick weiterzugeben. 

Damit Sie nicht vergessen, ob und was Ihr Schiff ge- 
laden hat, wird dies ständig ganz links oben angezeigt. 
So können Sie auch vermeiden, aus Versehen auf ei- 
nem Planeten zu landen, der die gleichen Waren her- 
stellt, die Sie geladen haben. Denn Sie können erst an- 
dere Waren einkaufen, wenn Ihr Schiff leer ist. 

Für die Steuerung des Spieles kann jeder Spieler wahl- 
weise Joystick oder Tastatur wählen. Sollten Sie bei 
der Suche nach dem Ziel, den Rand einer Ebene über- 
schreiten, gelangen Sie in der nächsten Ebene an die 
gleiche Stelle, also direkt zu dem Kubus, der darunter 
oder darüber liegt. 

Sobald einer der Spieler eine Million Solardollar auf 
seinem Konto hat oder alle Kuben erforscht sind, wer- 
den die letzten fünf Runden gespielt; das Spiel ist zu 
Ende. Es gibt die Möglichkeit, die entsprechende Fra- 
ge auf dern Bildschirm mit ‘N° zu beantworten. Dar- 
auf sind weitere fünf Runden möglich. Endgültig 
Schluß ist erst, wenn Sie die Frage mit ‘J* beant- 
worten. Günter Kramer 
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WELTHANDEL 


18 rem welthandel 


SERR-SEST % u sA 


28 rem (p) commodore welt team 


308 rem ========================== 
48 rem (c) by g. kramer 

58 rem emsdetten 

68 rem 


78 rem basic v 3. 


8. 


88 rem plus4 (c16/116 mit 64 kb) 


9A rem ========5==3 
188 gosub188 

118 gosub4478 

128 poke239,8 

138 getkeya$ 


IE LO ET nn 


188 color@, 1 
198 color4,1 
288 color1,14,2 
218 dimex$(?) 
228 dimex( 7) 
238 dimku(6,6,6): 
248 ku(l3,3,3)=73: 
258 fori=1to6 
268 ku(@,i,8)=333 
278 next 
288 an=6 


298 ar=1 
388 bi=3872 
318 fa=2848 
328 un=® 
338 be=8 
348 si=-® 


358 fori=1t05 
368 readku(i,®,®) 
378 next 


:rem 
:rem 


rem 
rem 


:rem 


:rem 


:rem 
:rem 
:rem 
:rem 
:rem 
:rem 


:rem 


:rem farben 


waren 
preise 
speicher 
die erde 
beginn erde 


anzahl spiele 


anzahl raeume 
bildram 
farbram 
unbewohnte 
bew. planeten 
siedlerschiff 


adressen 


388 data81,561,332, 183,583 
398 furi=8to? :rem exportartikel 


408 readex$(i),ex 
418 next 


(i) 


428 datatechn.waren, 1588, uran, 1388 
438 datarubine, 1288,metall, 1188 
448 dataerdoel, 1808,weizen, 988 

458 dataholz,888,fleisch, 788 

468 a$=chr$( 176) +chr$( 99) 

478 a@$=chr$( 178) +chr$( 99) 


488 gosub1228 


498 ue$( 8) =a$+chr$( 174) 
saB a$=chr$( 98) +chr$( 32) 


518 au$=a$ 
528 gosub1228 


538 ue$( 1) =a$+chr$( 98) 
548 a$=chr$( 171) +chr$( 99) 
S58 aß$=chr$( 123) +chr$( 99) 


568 gosub1228 


znm?> 
<ho> 
ng? 
<kd> 
<em> 
<ah> 
<nl> 
<hj> 
<ig> 
<ap> 
<jp> 
<bk> 
<lp> 
<jj? 
<jj? 
<ec> 
<ef> 
<no> 
<hl> 
<md> 
<cc> 
<hm? 
<hc> 
<hj> 
<fl> 
<fm> 
<ka> 


<pi> 
<hk> 
<ib> 
<kh> 
<gh> 
<pd> 


<1lb> 
<cm? 
<nf> 
<pi> 
<po> 
<ia> 
<ig> 
<1j> 
<db> 
<kk> 
<bb> 
<hm> 
<co> 
<bn> 
<ol> 


<ec> 


<bm> 
<jn> 
<pm> 
<dj> 
<ib> 
<ag> 
<pn> 
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578 
588 
598 
688 
618 
628 
638 
648 
658 
668 
678 
688 
698 
788 
718 
728 
738 
748 
758 
768 
778 
788 
798 
888 
818 
828 
838 
848 
858 
868 
878 
888 
898 
988 
918 
928 
938 
948 
958 
968 
978 
988 
46) 


998 


1888 
1818 
1828 


1030 
1040 
1858 
1068 
1070 
1088 
1098 
1188 
1118 
1128 


ue$( 2) =a$+chr$( 179) 
a$=chr$( 173) +chr$( 99) 
39$=chr$( 177) +chr$( 99) 
gosub 1228 

ue$( 3) =a$+chr$( 189) 
a=rnd( -ti) 

fori=1t05 
s=int(rnd( 9) #5) +1 
aß=-int(rnd( 8) #5) +1 
al=int(rnd( 8) #5) +1 


if(ku(a,a®, 31) and127) >®then648 


foriß=a-1itoa+1 
ifli@<1)or( i@>5)then?77®8 
fori1=a8-1t0aß+1 
ifliil<1)or(i1>5)then?76® 
fori2=al-1toal+1 
if(i2<1)or( i2>5)then?58 


ku(iß,i1,i2)=ku(i®,i1,i2)or128 


next 

next 

next 

kula,aß,a1i)=2 
nexti 

color1,6,3 

senclr 
a$="welthandel" 
vol8 

asint( 12-1en(a$)/4) 
fori=1tolen(a$) 
sound3, 688,18 
chari,a+2*i1,8,mid$(a$,i,1) 
fori@=8t058 

sound1, 1818-18*28, 1 
nextiß,i 
sound1,818, 18 
sound2, 854, 18 
char1,14,2,"ein spiel von" 
aug="" 

fori=1t09 
aß$=aß$+chr$( 164) 
next 


a$=chr$( 18)+"g. kramer"+chr$t{ 1 


sound3, 688,28 
char1,16,4,a8$ 
char1,16,5,a$ 


a$="wieviele mitspieler?( 1-6) 


color1,13,6 

fori1=1t03 
ifi1=2thenchar1,8,18,a$ 
a=int(rnd(8)*8) +1 
fori®=-1tolstep2 
aß=1:a1=a 
ifi@<8thenad=a:al=1 
fori=aßtoailstepi® 
sound3, 588+35*i,4 
nexti,i® 


<ok> 
<oa> 
<of> 
<pk> 
<hn> 
<hf> 
<ib> 
<kd> 
<ik> 
<bi> 
<ea> 
<1f> 
<bk> 
<pf> 
<io> 
<pp? 
<dh> 
<ig> 
<gd> 
<hh> 
<im> 
<ja> 
<lc> 
<ho> 
<ec> 
<hh> 
<pc> 
<gm> 
<hj> 
<kd> 
<kf> 
<in> 
<cc> 
<mb> 
<pp? 
<gk> 
<fe> 
<gb> 
<pf> 
<1k> 
<bn> 


<jb> 
<ja> 
<mg> 
<lf> 


<hn> 
<ke> 
<hd> 
<ce> 
<ih> 
<fo> 
<jl> 
<ia> 
<oj? 
<bm> 
<ga> 


1138 
1148 
1158 


1168 geta$:ifla$<"1")or(a$>"6")the 


a=int( rnd( 8) #38) +38 
sound3,658,a 
next 


n1168 


1178 
1188 


1198 
1288 
1218 


1228 
1238 
1248 
1258 
1268 
1278 
1288 
1298 
1388 
1318 
1328 
1338 
1348 
1358 
1368 
1378 
1388 
1398 
1488 
1418 
1428 
1438 
1448 
1458 
1468 
1478 
1488 
1498 
1588 
1518 
1528 
1538 
1548 
1558 
1568 
1578 
1588 
1598 
1688 
1618 
1628 
1638 
1648 
1658 
1668 
1678 
1688 
1698 


an=valf(.a$) 
return 


zu nn 


fori=1t04 
a$=a$+aß$ 
next 


scnelr 

color1,13,6 
a$=right$(str$(sp), 1) 
printtab( 12)"spieler "a$ 
color1,14,2 

sound1, 169, 18 
printue$( 8) tab( 22) ue$(®) 
sound2, 345, 18 
printue$( 1) tab( 22) ue$( 1) 
fori=1t04 

sound1,453, 18 
printue$(2)tab( 22) ue$( 2) 
sound2,596, 18 
printue$( 1) tab( 22) ue$( 1) 
next 

sound1,685, 18 
printue$( 3) tab( 22) ue$( 3) 
print 

sound2, 739, 18 
printue$(®) tab{ 22) ue$( ®) 
sound1,818, 18 
printue$( 1) tab( 22)ue$( 1) 
fori=1t04 

sound2, 854,18 
printue$(2)tab( 22)ue$( 2) 
sound1,881, 18 

printue$( 1) tab( 22) ue$( 1) 
next 

sound2, 917,18 
printue$( 3) tab( 22) ue$( 3) 
char1,8,7,”" 
sound1,939, 18 

printtab( 11)ue$(®) 
sound2, 953, 18 
printtab( 11) ue$( 1) 
fori=1t04 

sound1,939, 18 
printtab( 11) ue$( 2) 
sound2, 953, 18 

printtab( 11)ue$( 1) 

next 
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sound1,939, 188 

sound2, 953, 188 
printtab( 11)ue$( 3) 
a=333 

gosub2548 

a=aaand? 

sound1,939, 18 

sound2, 953, 18 
pokefa+ta3,54 
pokebita3,81 

color1,9 
char1,5,1,"1",1 
char1,5,13,"2",1 
char1,27,1,"4”,1 
char1,27,13,"5",1 
char1,16,7,"3",1 
gosub2438 

color1,13,6 
a$=right$( str$( sp) ,1) 
char1,12,8,"spieler "+a$ 
color1,? 

a$=" [ 

fori=1to11 
a$=a$+chr$( 32) 

next 

char1,8,8,a$ 
a=ku(8,sp,5)-5 
ifa=-ithena$="siedler" 
ifa>-ithena$=ex$( a) 
char1,8,8,3$ 

color1,9 

a=ku(8,sp,®) 

gosub2548 
pokefa+ta3, peek( fa+a3) or128 
b=ku(B,sp,2) 
bi=ku(@,sp,4) 

av=fata3 

a3=ku( aß,a1,a2) 
gosub2638 

color1,3,4 

fori=8t039 
pokebi+968+i1,32 

next 

a$="hier ist "+a$ 
char1,8,24,8$ 
color1,3,5 

gosub4838 

ifa( 1,8) <>1then2230 
char1,11,2,"ein schiff" 
char1,13,4,"preis =" 
char1,14,5,"6888" 
ku(@,sp,3)=® 
goto2398 

ifa( 1,8) <>3then2388 
char1,11,2,"ein schiff" 
char1,11,3,"reparieren" 
char1,13,5,"preis =" 
char1,14,6,"” 10880” 


WELTHANDEIL 


ku(8,sp,3)=® 

goto2398 

ifa( 1,8) <>99then2338 
char1,14,3,"start" 
got0o2398 

char1,31,8, "auswahl:" 
color1,8,5 

fori=1t09 

al il=left$laßli}+ta$,6) 
char1,33,i+2,a$(i) 
next 

return 


Pen = en 


color1,9 


ifku(8,sp,1)<@thencolor1,3,4 


a$=str$(ku(l@,sp,1)) 


a$="...... "+right$(a$,1len(a$) 


a$=right$(a$,7) 


a$=right$( str$(sp) ,1)+"="+a$ 


char1,12,17+sp,5$,1 
return 


ren a — 


Boah 23 1 BP la a ieh 


aß=int(a/1BB) 
alsint((a-1808*aß) /10) 
a2=a-1900*a8-10*a1 
a3=ku(a8,8,8) 
a3=-a3+2*a31+88*a2-82 
return 


rem rn 


fori=1t09 

agli)="" 

a(i,8)=8 

next 

i=1 
ifl33and127)=71then2718 
a4d=a3and3 
ona4got 02758, 2738, 3268 
a$=" nichts" 

g0t0o3228 

a$=" ein schwarzes loch" 
goto3588 

a$="die erde" 
ifb>®then2838 
ifb1>8then2838 

a$( 1)="schiff" 
a$l2)="..6000" 

al 1,1)=6888 

a[1,8)=1 

i=4 

if(b>®)or(b1=8) then2928 
a$(i)="repa-" 


a(i,1)=1088 

a(i,8)=3 

i-i+1 

a$li)="ratur" 

i=-i+1 

a$gli)="..1900"” 

i=i+2 
ifku(®,sp,5)>®then3218 


ifku(®,sp,2)=@then3218 
ifku(®,sp,6) <1then3848 
iflun-si) <1then3848 
a$li)="sied-" 

ali,1)=® 

a(i,8)=4 

i=-i+1 

a$(i)=" ler" 

i=si+i 

agli)=" * 

i=i+2 

ifbe=-8then3218 
aa=ex(B) 

ifku( sp, 8,6) =@then3888 
aa=int(aa/2) 
ifku(®,sp, 1) <asthen3218 
a$li)="techn."” 
ali,i)=aa 

ifku(sp,®,6) <1then3138 
kulsp,8,6)=ku(sp,@,6)-1 
a8$=str$(ali,1)) 
a(i,8)=5 

i=i+1 

a$( i)="waren” 

i=-i+1 


aß$=".."+right$(aß$, len( aß$) - 


a$li)=-38$ 

i=-i+t2 

ifb=®8then3498 
a$li)="start" 
ali,1)=880 

a(i,8)=99 

g0t03498 

a1$="bewohnter planet" 
a$="unbewohnter planet” 
if( a3andB) =8thena$=a1l$ 
a$="ein "+a$ 
ifku(@,sp,5)>®then3228 
if( a3and4895) <256then3228 
a4=( 33and 1792) /256 
aa=ex(a4) 

j-peek( av)and112 
j>j/16-4 

aa=aa-aa*j*.85 

aa=aa+5B 
aa=-188*int( aa/ 188) 
ifku(@,sp, 1) <aathen3228 
ali,1)=aa 


a$li)=ex$( a4) 


WELTHANDEL ER RER 


3428 ali,8)=a4+5 <gl> 3988 next <1j> 
3438 i-i+1 <cj? 3998 return <nj?> 
3448 aß$=str$( aa) <mi> aBB0 Lem = - mem ne <pd> 
3458 ad$=".."+right$( ad$,len( aß$) - 4818 rem loeschen nachricht <ci> 
1) <nd> 4828: nem Fern <nf> 
3468 a$li)=ad$ <be> au3B a$="" <b1> 
3478 i=i+2 <ei> 49048 forj=1to11 <bl> 
3488 goto3220 <ec> 4058 a$=a$+chr$( 32) <pa> 
3498 ifla3andi28) »Athengosub3548 zgb> 4868 next <fj> 
3588 return <ab> 4878 Forj=1t06 <ph> 
BT ER <nf> 4088 char1,11,3j,a$ <gf> 
3528 rem raumbeben <fe>. 4898 next <je> 
3538 rem ---------- <kj> 4188 char1,28,9,3$ <ie> 
3548 ifint(rnd( 8) *6) >8then3888 <ik> 4118 a$=right$(a$,6) <bf> 
3558 fori=8t039 <aj? 4128 for j=2t028 <in> 
3568 pokebi+968+i,32 <hh> 4138 char1,33,j,3$ <el> 
3578 next <ib> 4148 next <pk> 
3588 color1,1 <bj? 4158 return <bk> 
3598 char1,8,12," vorsicht " <ij> 4160 rem mn <om> 
36088 char1,22,12,” raumbeben" <gc> 4178 rem schwarzes loch <ho> 
3618 a=sint( rnd(B)*8) +1 <ih> 41808 rem ------------ 77772220 <gb> 
3628 fori@=-1toistep2 <fo> 4198 kulaß,al,a2)=66 <oc> 
3630 aß=1:31=a <jl> 4208 gosub3558 : <ni> 
3648 ifi@<B®thenaß=a:al=1 <ia> 4218 colori,1 <1b> 
3658 fori1=aßtoaistepi® <ga> 4228 char1,8,12," schwarzes" <pk> 
3668 sound3,589+35*i11,4 <ha> 4238 char1,22,12,"”** loch **" <aa> 
3678 colord,2 <mi> 4248 fori=dto1B8 <fp> 
3688 nexti1,i® <en> 4258 sound, 1818-18*i, 1 <oi> 
3698 a=int(rnd( 8) *38) +38 <pn> 4268 sound2, 1818-19*( 188-1), 1 <ji> 
3788 fori1=1to3 <ki> 4278 color®,(iand15) +1 <ca> 
3718 sound3,658,a <gj?> 4288 next <bd> 
3728 fori®d=8t015 <lg> 4298 colorß,2 <kp> 
37308 poke65287,i8 <ph> 4388 ku(l®,sp,2)=® <pg> 
3748 next <nh> 4318 ku(®,sp,5)=® <on> 
3758 fori@=24t031 <dm> 4328 kulß,sp,4)=1 <mb> 
3768 poke65286, id <eh> 4338 colorß, 1 <da> 
3778 next <bd> 4348 color1,6 <mo> 
3788 forid=15to8step-1 <al> i 4358 pokefa+ta3,88 <hd> 
3798 poke65287,18 <jp> 4368 pokebita3,86 <gp> 
3888 next <ep> 4378 a5=45 <ig> 
3810 fori®=31to24step-1 <ja> 4388 gosub3928 <ij? 
3828 poke65286,i® <nl> 4398 a=ku(®,5p,®) <mg> 
3838 nextiß,il <nh> 4408 gosub2548 <op> 
3848 poke65286,27 <1n> 4418 pokefata3,peek( fata3) and127 <kl> 
3858 poke65287,8 <gl> 4428 ku(®,sp,®) =333 <gp> 
386B color®, 1 <1d> 4438 return <em> 
3878 ku(@,sp,3)=ku(@,sp,3) +1 <he> 4448 rem --------- 7277777770 <jm> 
3888 return <pm> 4458 rem spiel laeuft <pn> 
3898. rem ars en <eb> 44608 ram ==> <ea> 
3988 rem ziel suchen <nd> 4478 sp=1 <og?> 
3918: rem —- - m <db> 4488 zu=1 <nb> 
3920 a4=fatas-1- <jn> 4498 gosub1298 <eb> 
3938 fori=Bto2 <mg> 4588 goto471B8 <fm> 
3948 ifpeek( ad4-fa+bi-48+i)<S4then3 4518 fori=itoan <ff> 
968 <oa> 4528 ifku(8,i,1)>999999theni=999 <me> 
3958 pokeita4-48,a5 <lc> 4538 next <aj? 
3968 ifi<>ithenpokeita4,aS <ek> 4548 ifi<1080thengoto4568 <kj? 
3978 pokeita4+48,a5 <df> 4558 g0t04578 <jg> 
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ifar<125then4688 

en=ent1 

ifen<5then468® 

gosub4B38 

color1,6,4 
char1,11,2,"spielende ?" 
char1,15,4,"”j/n" 
poke239,8 


geta$ 
ifa$="j"then5638 


ifa$<>"n"then4648 
en=® 

zu=1 

i=fre(B) 

gosub 1888 

ifa( 1,8) =8then5278 
fori=1t09 

ceu(i)=® 

next 

j=8 

fori=1t09 
ifali,8)=®then4888 
3=j+1 

ceu( j)=i 

next 

i=1 

a=cu(i)*#48+113 
foraa=fatatoaat6 
pokeaa,peek(aa)or1i28 
next 

poke239,8 

geta$ 
ifa$<>""thenaa=joy( 1) :aa=joy( 


ifa(i,8)=99then5888 
ifa$=chr$( 13) then5888 
ifjoy( 1)=128thenSa8®8 
ifjoy( 2) =128then5888 
ifa$=chr$( 17) then5178 
ifjoy( 1)=5then5178 
ifjoy( 2) =5then517® 
ifa$=chr$( 145) then5228 
if joy( 1)=1then5228 
ifjoy(2}=1then5228 
g0t04878 

gosub5748 

a=cu(i) 

ad=ala,1) 

a=a(a,ß) 
ifa=99thengosub64 18: got 05278 
ifa>3then5118 
ku(ld,sp,a+t1)=1 
ifa<3then5128 
ku(lß,sp,2)=1 
ku(l®,sp,4)=® 

got05128 

ku(®,sp,5)=a 

ku(8,sp, 1)=ku(@,sp,1)-a® 


<bo> 
<od> 
<cm> 
<mb> 
<ae> 
<ik> 
<ci> 
<bg> 
x<1k> 
<ia> 
<ee> 
<pj> 
<fk> 
<dd> 
<ij? 
<id> 
<dh> 
<kg> 
<kp> 
<md> 
<ec> 
<bj? 
<l1h> 
<pf> 
<ch> 
<jo> 
<gc> 
<nm? 
<gm> 
<ik> 
<jm> 
<pf> 


<ck> 
<li> 
<ja> 
<af> 
<go> 
<eh> 
<ce> 
<nh> 
<mc> 
<fb> 
<ck> 
<ol> 
<gl> 
<km> 
<an> 
<kb> 
<fl> 
<ae> 
<mb> 
<fp> 
<cg> 
<ba> 
<il> 
<gh> 
<ge> 


22 


5138 
5148 
5158 
5168 
5178 
5188 
5198 
5288 
5218 
5228 
5238 
5248 
5258 
5268 
5278 
5288 
5298 
5388 
5318 
5328 
5338 
5348 
5358 


5368 
5378 
5388 
5398 
5488 
5418 
5428 
5438 
5448 
5458 
5468 
5478 
5488 
5498 
5508 
5518 
5528 
5538 
5548 
5558 


"5568 


5578 
5588 
5598 
5688 
5618 
5628 
5638 
5648 
5658 
5668 
5678 
5688 
5698 


ifa=4thensi=si+1 
gosub243B 
gosub 1988 
goto4718 
i=i+1 
ifi>jtheni=1 
aa=fata 
gosub5748 
goto4828 
i=1-1 
ifi=@®theni=j 
aa=fata 
gosub5748 
goto4828 
a=-ku(8,sp,®) 
aa=fata3 
gosub5748 
a5=45 
gosub3928 
ifku(®,sp,3) <18then5458 
gosub4838 
color1,12,1 


char1,13,2,chr$( 138) +"schaden 


char1,14,3,"durch" 
char1,12,4,"raumbeben"” 
char1,12,5,"reparatur"” 
char1,12,6,"notwendig" 
print 

ku(@,sp,®) =333 
ku(l®,sp,2)=®8 
ku(ß,sp,4)=1 
fori=1t01888:next 
zu=zu+l 

ifzu<4then4698 

sp=spt1 

if( sp>an) and( be>®) then558® 
color1,1 
char1,8,12,"naechster " 
char1,22,12,"mitspieler" 
fori=1t05 

gosub4838 

color®,i 

for j=1t0188 

nextj,i 

color®B, 1 
ifsp<=anthen4688 
gosub581® 

gosub6B88 

sp=1 

goto4518 


color1,16 
char1, 11,0, "#ra#asaenen" 


char1, 11,1, "wre" 
char1,11,2,"** spiel ##" 
char1,11,3,”"** ende *#" 
char1, 11,4, "WR" 
char1, 11,5, "rm" 
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5788 return <ec> 6268 if(peek( fa+ta3) and15) <>4then63 

5718 rem ----------- 277227 <gb> 38 <lb> 
57289 rem blinken aus <Ff> 6278 ifint(rnd(B)*4) >Bthen6358 <og> 
5738 rem ------------------ <oi> 6288 a=peek( fata3) and112 <ma> 
5748 foraa=aatoaat6 <1p> 6298 a=a+16 * <ed> 
5758 pokeaa,peek( aa) and127 <ai> 6308 ifa>112thena=112 <tg> 
5768 next <kp> 6310 amatd <ah> 
5778 return <mp> 6328 goto6348 <le> 
SI8B rem --------- 722220 zam> 6338 pokebi+ta3,ascl a$) -64 <jo> 
5798 rem zinsen faellig <kp> 6348 pokefata3,a <nm> 
5800 Den; -SF3Fsearn <pj> 6358 nexti1,i®ß,i <gn> 
5818 gosub4B3B ng>. 6368 colorß, 1 <ja> 
5828 color1,9,5 <hi> 6378 return <id> 
5838 char1,11,2,"zinsen sind" <hn> 6388 rem ----------- 7227 <oc> 
5848 char1,13,3,"faellig” <bl> 6398 rem start <ek> 
5858 an$="" <jb> 68388 rem === ernnnn <la> 
5868 forsp=1t011 <ka> 6418 a=ku(l®,sp,®) <af> 
5878 aß$=aß$+chr$( 32) <1f> 6428 gosub2548 <hf> 
5888 next <jo> 6438 a5=abs(a-kul®,sp,®B)) <nj? 
5898 forsp=1Itoan <lo> 6448 ifkul®,sp,2)=®then6528 <if> 
5988 color1,9,5 <im> 6458 ifa5=1then651B <ec> 
5918 zi=.86 <ah> 6468 a5=a5-8:ifl a5>B) and( a5<4) then 

5928 a$="6%" <pb> 6518 2 <cp> 
5938 ifku(®ß,sp, 1) <@thenzi=.1:3$="1 6478 a5=a5-88:ifl a5>8) and( a5<4) the 

0%" <kb> n6518 <nf> 
5948 char1,12,4,"spieler"+str$(sp) <ff> 6488 35=35-18:ifl 35>8) and( a5<4) the 

5958 zi=ku(ld,sp,1)*zi:zi=int(zi) <gb> n651® <dp> 
5960 a$=a$+"="+str$(zi) <he> 6498 a5=35-18:ifl 35>8) and( a5<4) the 

597@ char1,11,5,38$ <nj? n6518 <ki> 
5988 char1,16-( len(a$) /2) ,5,a$ <pm> 65088 a5=194:g0t06528 <oh> 
5998 ku(@,sp,1)=kuld,sp,i)+zi <ik> 6510 a5=254 <fa> 
6808 Fori=1t0o3@®@:next <gh> 6528 iflkulaß,al,a2)and64) =®then65 

6818 gosub2438 <ad> 58 <bl> 
60828 Fori=1to18ßBd:next <pg> 6538 a5=181 <ek> 
6838 next <mn> 6548 iflkulaß,ai,a2)and?) =2thenaS= 

6848 return <on> 194 <fa> 
6858 rem ----------- 77000 <ce> 6558 ifa=kul®,sp,®)thena5=194 <hg> 
6868 rem rohstoffe <ke> 6568 iflku(®,sp,5)<>4)then6688 <pf> 
68908 rem --------- 777777227 <ho> 6578 ifa5<>1Bithena5=194:g0t06648 <el> 
6088 ifbe<1then6378d <kl> 6588 iflkulaß,al,a2)and15)=3then66 

6898 gosub4838 <pn> 48 <kn> 
6198 color1,1 <ee> 6598 35=194 <ga> 
6118 char1,8,12,"naechster " <jf> 6688 iflkul®,sp,5) <5) then664B <fb> 
6128 char1,22,12,"mitspieler" <dg> 6618 if(kulaß,al,a2)and3) =1then664 

6130 fori=1to5 <nf> 8 <gi> 
6148 color®ß,i <mk> 6628 if(kulaß,a1,32)and11)=11then6 

6158 forid=1t05 <gk> 648 <kd> 
6168 fori1i=1to5 <hh> 6638 a5=194 <fc> 
6178 a=kuli,iß,il) <cp> 6648 gosub3928 a <ai> 
6188 if( aand15) <>15then6358 <fj> 6658 poke239,8 <ob> 
6198 if( aand4895) >255then6238 <fd> 6668 geta$ <bn> 
6288 ad=int(rnd(B)*7) +1 <jj? 6678 ifa$=""thencu=joyl 1) :cu=joyl 2 

6218 kuli,id,i1)=ku(i,i®,i1)+256*a ) <jo> 
8 <ho> 6688 cu=joy( 1) <gc> 
6228 a$=left$(lex$(aß), 1) <fa> 6698 ifcu=®thencu=joy( 2) <kn> 
6230 a=100*i+10*iB+i1 <dm> 6788 ifcu>@dthen6778 <gf> 
6248 gosub2548 <mo> 6718 ifa$=chr$( 13) thencu=128 <jm> 
6258 a=68 <jn> 6728 ifa$=chr$( 145) thencu=1 <oi> 
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6738 
6748 
6758 
6768 
6778 
6788 
6798 
6888 
6818 
48 
6828 
6838 
6848 
6858 
6868 
6878 
6888 
6898 
68 
6988 
6918 
6928 
6938 
6948 
6958 
6968 
6978 
6988 
6998 
7228 
7818 
7928 
7838 
7848 
7858 
7068 
=art1 
7978 


ifa$=chr$( 29) thencu=3 
ifa$=chr$( 17) thencu=5 
ifa$=chr$( 157) thencu=? 
ifcu=@then6668 
ifcu=128then6998 
ceu=sint((cu+1)/2) 
oncugoto6889,6830,6888,6918 
a2=a2-1 a 
ifa2=@thena2=1:38=>aß-1:g0t069 


g0ot06958 

al=al+t] 

ifal<6thengoto6958 
a1=-5:38=aß+1 

ifaß=6thenaß=1 

goto6958 

a2=a2+]1 
ifa2=6thena2=5:a8=ad+1:g0t068 


goto6958 

al=al-1 
ifa1>8then6958 
31=1:38=a®-1 
ifaß=8thenad=5 
a5=45 

gosub3928 
a=108*a0+1B8*al+a2 
g0t06428 
ifa5=194then6668 
f1=488 

tr=8 

p1=8 
ifa5<>254then?7878 
gosub858® 

f1=888 
if(ku(a8,a1,a2)and64)=®thenar 


if(ku(la8,a1,a2)and?) <>2then?71 


gosub4938 

color1,1 

char1,11,2,"* ächtung *" 
char1,11,3,"* gefahr! *#" 
char1,15,4,"ein"” 
char1,12,5,"schwarzes" 
char1,14,6,"loch" 
gosub4198 

g0t07598 

j>a 

fori=8t039 
pokebi+96®8+i,32 

next en 
if(ku(a8,a1,32)and128)=®then? 


gosub3548 

a=ku(8,sp,®) 

gosub2548 
pokefa+ta3, peek( fata3) and127 
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7268 
7278 
7288 
7298 
418 
7308 
7318 
1 
7328 
7338 
7348 
7358 
7368 
7378 
7388 
7398 
7488 
7418 
7438 
7428 
7438 
7448 
7458 
7468 
7478 
7488 
7498 
7588 
7518 
7528 
h"” 
7538 
7548 
7558 


a=j 
gosub2548 
ku(@,sp,8)=a 


if(ku(a8,a1,a2)and64) =64then? 


i=int(4*rnd(®)) 


ifi>8theni=71:elsei=67:un=un+t 


ku(laß,a1l,a2)=ku(aß,a1l,a2)ori 


tr=1008 
ifi=67thenpl=1488 
i=ku( 38,31,32)and? 
pokefata3, 185 
ifi=1thenpokefata3, 182 
ifi=7thenpokefata3, 173 
ifi=7thenpokebita3, 289 
ifi=3thenpokebi+ta3,81 


iflku(la®,a1,a2)and15)<>11then 


pokefata3, 181 

pokefa+ta3, peek( fa+a3) or12B 
ifa5<>254then?7468 
ku(®,sp,2)=ku(ß,sp,2) +1 
fori=8t039 

pokebi+968+i, 32 

next 

color1,3,4 

i=ku( a8,a1,32) and? 
ifi=1thena$="die erde” 


ifi=2thena$="ein scwarzes loc 


i=ku(a8,31,a2)and15 
ifi=7thena$="nichts"” 


ifi=3thena$="ein unbewohnter 


planet" 


7568 ifi=11thena$="ein bewohnter p 


lanet” 


7578 ifi=15thena$="ein bewohnter p 


lanet" 


7588 
7598 
7688 
7618 
7628 


7638 


7648 
7658 
7668 
7678 
7688 
7698 
7788 
7718 
7728 
7738 
7748 
7758 
7768 


a$="hier ist "+ta$ 
color1,3,4 
char1,8,24,a$ 

gosub4838 
char1,12,2,"transport-" 
color1,3,4 
char1,14,3,"kosten" 
char1,14,5,str$( fl) 

for jflto1B8step-188 
ku(8,sp,1}=ku(®,sp, 1) -188 
sound3, 688,5 

gosub2438 

next 

color1,3,4 
forj=1t01888:next 
color1,9 

iftr=8then?878 

gosub4838 
char1,11,2,"transmitter"” 
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7778 
7788 
7798 
7888 
7818 
7828 
7838 
7848 
7858 
7868 
7878 
7888 
7898 
7988 
7918 
7928 
7938 
7948 
7958 
7968 
7978 
7988 
7998 
BB0B 
8818 
8028 
8838 
8B48 


char1,13,3,"gesetzt" 
char1,11,5,"gutschrift"” 
char1,13,6,str$(tr) 
forj=trto188step-188 
ku(®,sp,1)=ku(l®,sp,1)+188 
sound, j*1888/tr,5 
gosub2438 

next 


color1,9 
for j=1to188®@:next 


ifpl=-®then8818 

gosub4838 

char1,12,2,"ein neuer” 
char1,14,3,"planet” 
char1,11,5,"gutschrift"” 
char1,14,6,str$(pl) 

for j=plto188step-18®8 
ku(®,sp,1)=ku(ß,sp, 1)+108 
sound, j*1888/p1,5 
gosub2438 

next 
ku(®,sp,6)=ku(®,sp,6) +1 
color1,9 

for j=1t01088:next 
a=ku(8,sp,5)-5 
ifa<@then8338 
ifa=ß8then885B 
ifa=(ku(a®ß,a1,a2)and3848) /256 


then8338 


8058 
8068 
8878 
8888 
8898 
8188 


color1,6,5 

gosub4838 
char1,11,2,"verkauf:" 
a$=ex$(a) 

aa=sex(a)*1.8 

ifa>@then8158 
kulaß,a1,32)=kulaß,atl,a2)or4 
if(ku(aß,a1,32) and4096) >@then 


ku(a8,a1,a2)=ku(aß,a1,32)or4® 


aa=-aa#1.25 
char1,17-1len(a$) /2,3,a$ 
j=peek( fata3)and112 

j=( 3/16) -4 
aa=aataa*j*.85 

j=peek( fata3) and112 
3=j-16 

if j<@then j=® 

j=jor( peek( fata3) and143) 
pokefata3,j ; 
aa=aa+5B 
aa=198*int( aa/ 100) 
char1,13,6,str$(aa) 

for j>a3t0188step-188 
ku(®,sp,1)=ku(®,sp,1)+188 
sound1, j*1888/aa,5 
gosub2438 

next 


ku(@,sp,5)=® 

ifku( 8, sp,5) <>4then8548 
color1,6,5 

gosub48308 
char1,13,2,"siedler" 
char1,12,3,"verlassen" 
char1,12,4,"das schiff” 
char1,12,5,"gutschrift" 
char1,14,6, "2098" 

for j=108t02888step1B® 
ku(d,sp, 1)=ku(@,sp, 1)+188 
sound1, j/2,5 

gosub2438 

next 

ku(®,sp,5)=® 
ku(sp,@,6)=ku(sp,®,6) +1 
ku(®,sp,6)=ku(®,sp,6) -1 
un=un-1 

si=si-1 

be=be+1 
ku(aß,al,a2)=ku(aß,al,a2)ord 
pokefata3, 181 

return 

rem --------- 
rem 
rem 
ifint( rnd( 8) #28) >dthen8998 
aig="" 

fori=1t039 
al$=a1$+chr$( 32) 

next 

color1,1 


fori=1to1dstep2 

aß$=ad$+chr$( 177) tchr$( 178) 
next 

char1,8,12,a8$ 
char1,22,12,38$ 
a8$=a8$+chr$( 177) 

fori=2t06 

char1,11,i,a8$ 

next 

aß$="hier ist der raum gekrue 


char1,8,24,a1$ 
char1,8,24,a8$ 
soundi, 169, 158 
sound2, 345, 158- 
a5=45 

gosub3928 
i=sint(rnd( 8) #5) +1 
iß=int(rnd(B) #5) +1 
i1=int(rnd(8)*5) +1 
a8=-i:31=i0:a2=i1 
fori=180t0858step5 
sound1,i,1 
sound2,i+158, 1 
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8898 colorA4, 1+(iand15) <ha> 10 rem mau-mau==================p4 <id> 
8988 next <ep? 28 rem (p) commodore-welt-team <ie> 
8918 char1,8,24,81$ <bk> 38 rem =======-=-==-=-2=020==0=020==2=== ong> 
8928 color4,1 SAN? 40 rem (c) by daniel ostrowski <nk> 
8938 color1,4 — 58 rem jens gudat <mo> 
8948 color®, 1 SEs? 68 rem karsten ahrens <mh> 
8950 a=100*a0+1Q*a1l+a2 <bo> 78 rem basic v3.5 <n1> 
8968 gosub2548 <dk> 88 rem plus4 (c16/116 + erw.) <dn> 
8978 a5=283 <la> 90 rem ===========-.-.--222=22200=0 Cjg> 
8988 gosub3928 <mk> 188 color®,2:color4,1:color1,1 <hc> 
8998 return <ba> 118 senclr:gosub3868 <fg> 
9088 rem welthandel =========plus4 <me> 129 goto 3788 <jg> 
9818 rem 60971 bytes speicher <cj> 138 scnelr:printspe( 15) "UCCCECECCEE 
9828 rem 15699 bytes programm <mk> EI":printspe( 15) yogd$yo$ <ol> 
99328 rem 231 bytes variable <hd> 148 printspel 15) yo$" mau"d2$"mau *" 
9840 rem 2562 bytes arrays <no> yo$:printspe( 15) yoßd$yo$:printspe( 
9858 rem 543 bytes strings <1j> 15) yo$d$yo$ <fe> 
9868 rem 41726 bytes frei <mg> 15@ printspe( 15) yo$d$yo$:printspef( 
DEE TE FEREEETEERERBEREEEEN EEE 15) yo$d4$"by”"d4$yo$:printspe( 15) yo 
$d$yo$ <eb> 


162 printspe( 15) yo$d$yo$:printspe( 
15) yo$d$yo$:printspc{ 15) yo$d$yo$ <pj? 
178 printspe( 15) yo$"seen"d2$"soft"” 
yo$:printspe( 15) yo$d$yo$:printspef( 


15) "ICCCCECCEECEK <1f> 
188 print:print:print:input"wie is 
t dein name ";nam$ <ce> 
198 iflen{ nam$) >15then138 <ea> 
288 dima$( 32) :dimb$( 32) :dimc( 32) :d 
ims( 32) :dimk( 32) <ag> 
218 dimart$( 32) :dimwert$( 32) :dimco 
- —.-— - m{ 32) :dimfarb$( 32) :dimauge$( 32) <kk> 
= : : en =) 3 =: -ß:- =: =: = 
——— en 
BEN — 5BaHrı } = 2 
Be 238 rem ---zuweisung--- <ne> 
. BRUECKE Sem 10 STaRı 248 Fori=1t0o8:a$(i)=re$+"27":a$li+8 
: )=re$+"5":3$[ i+16) =bK$+"A":a$l i+24 
3 — JzbK$+"X" next <ou> 
258 Foro=Bto3 <ho> 
269 b$(0*8+1)="7":b$[l0*8+2) ="8" <gd> 
278 b$( 0*8+3) ="9":5H$(0oF8+4) ="10* <In> 
282 b$( 0*8+5) ="bD":b$l 0o*8+5) ="d" <nh> 
298 b$( 0*6+7)="K":b$[0*8+8) ="as" <lin> 
Sie und der Computer haben je fünf Karten. Seine 388 nexto j <ai> 
sind abgedeckt, während Sie die Ihren sehen können. 318 foro=1t08:c(0)=o:clo+B)=o:c[o+ 
Eine Karte liegt aufgedeckt auf der rechten Seite. Ge- 16)=0:c(0+24) =o:next <oo> 
hen wir davon aus, es würde sich um die Karo-Neun 320 wahl$="+" <ko> 
handeln. Also_.legen Sie ebenfalls eine Neun einer an- a ee ie <gl> 


deren Farbe oder irgend eine Karokarte darauf. Ha- 


ben Sie weder Neun noch Karo, müssen Sie eine Karte 348 printchr$( 147) :fori=1t05:print 


aufnehmen. Legen Sie eine Karo-Acht, setzt der Com- chr$( 17) :next <la> 
puter aus. Haben Sie gar eine Karo-Sieben, muß der 350 printtab(8)"ich mische die kar 
Computer zwei Karten ziehen. Kann er aber mit einer ten" <dl> 
Sieben kontern, geht der Schwarze Peter an Sie, und 368 fori=1t032:s(i)=B:next:e=1 <ip> 
Sie sind um vier Karten ‚reicher‘ geworden. 370 ife=33thend428 End 
Der Bube darf auf alle Karten gelegt werden. Wer ihn a er. Rn “ ” 
hat, kann sich eine neue Farbe wünschen. Gewonnen 88 r=int(rnd( 1)*32) +1 Se 
hat, wer zuerst seinen Kartenvorrat loswerden konnte. 398 ifs{r)=1ithen38® <jg> 
Die Bedienungsanweisungen werden auf dem Bild- 489 s{r)=i:kle)=r <pn> 
schirm angegeben. 418 e=e+1:g0t0379 <gj> 


26 


420 rem ---austeilen--- <hi> 598 ifmerk>Bthen 1528 <hi> 


438 printchr$( 147) <ij> 998 goto1038 <gi> 
448 forr=1t05:gosub134®8:next <hc> 918 rem ---welche karte--- <da> 
458 gosub2128 <cl> ER 

468 fori=1to5 <pa> nr en 
270 Farb£(1}=a$t kt i+6)) ee le >"b ar 
488 auge$(i)=b$CkKli+5)) :next:gut=5 <ec> 948 next <ob> 
498 gosub2388 <db> 958 ifmerk=®then 1888 <fi> 
588 hauf$=a$( kl 11)) :oben$=b$( kK( 11) 968 zahl=val( oben$) -6 <fa> 
) :mau=11 <ml> 978 ifzahl=-@thenzahl=6 <ae> 
518 if oben$="7"thensieb=2 <ob> 988 ifoben$="as"thenzahl=8 <cl> 
528 gosub2658: g0t02828 <fj>. 998 ifcom(merk)>=zahlthen 1529 <kd> 
930 rem 77 men <pg> 1888 Fori=1tohab:ifoben$=wert$li)t 

548 rem computer <ho> henmerk=i <ee> 
SOUk ren 2. en <pm> 1818 next <gn> 
568 ifoben$="b"andwahl$="+"thengos 1028 ifmerk>@then 1528 <ff> 
ub1168 <ge> 10838 fori=1tohab <gf> 
578 ifoben$="b"thenhauf$=wahl$ <mn> 184 ifwert$(i)="b"thenmerk=i <lp> 
588 rem ---liegt-7-aben ?-------- <pa> 1858 next <lo> 
598 merk=® <ff> 1868 ifmerk>@thengosub1169:g0t0152 

608 ifsieb=Athen688 <ip> r) <ai> 
618 fori=1tohab <dk> 1078 gosub134B:gosub212® <dk> 
628 ifwert$(i)="7"thenmerk=i <ge> 1288 ifwert$(merk) ="b"thengosub116 

638 next <hc> 8:g0t01528 <pk> 
648 ifmerk>Bthen 1528 <mb> 1298 ifart$(merk)=hauf$forwert$(mer 

658 Foro=1tosieb:gosub134B8:merk=B: k)=oben$then 1528 <jn> 
next <ae> 1188 rem ----kann--nicht---- <im> 
660 gosub2128:sieb=B <hp> 1118 printchr$( 19)chr$(31)"ich kan 

678 rem ---B-und-andere---- <mm> n nicht (taste x !) ”d$ <na> 
688 Fori=1tohab “a3? 1120 poke198,8:wait 198,1 <lm> 
698 ifwert$(i)<>"8"then758 <mk> 1138 printchr$( 19) d$d$d4$d3$ <ep> 
788 ifhauf$<s>art$(i)andoben$<>"8"t 1148 printchr$( 19) :printtab( 37)" " 
hen758 <oa> :g0t02828 <af> 
718 ifart$(i)=re$+"Z”andkaro>1then 1150 rem ---farbe waehlen--- <bf> 
merk=i <kc> 1168 ifkaro<herzthen 1288 <ki> 
728 ifart$(i)=re$+"5S"andherz>ithen 1178 ifkaro<pikthen1208 <cm> 
merk=i <bp> 1188 ifkaro<kreuzthen 1208 <oo> 
738 ifart$(i)=bk$+"A"andpik>1thenm 1198 wahl$=re$+"2":g0t01328 <nj> 
erk=i <le> 1288 ifherz<karothen 1248 <hk> 
748 ifart$(i)=bk$+"X"andkreuz>1the 1218 ifherz<pikthen1248 <ba> 
nmerk=i <pd> 1228 ifherz<kreuzthen1248 <je> 
758 next <gd> 1238 wahl$=re$+"5":g0ot01328 <bl> 
768 ifmerk>®then 1528 <ea> 1248 ifpik<karothen128® <dm> 
778 rem ---gut-<-3--- <ji> 1258 ifpik<herzthen 1289 <od> 
780 ifgut>2then868 <ee> 1268 ifpik<kreuzthen 1288 <ch? 
798 ifhab<3then86B <cm> 1278 wahl$=bk$+"A":g0oto 1328 <be> 
888 fori=1tohab <ia> 1288 ifkreuz<pikthen 1328 <1k> 
818 ifwert$(i)="7"andart$(i)=hauff 1298 ifkreuz<herzthen 1328 <me> 
thenmerk=i <bl> 1388 ifkreuz<karothen1328 <ge> 
820 next:ifmerk>@then1528 ° <je> 1318 wahl$=bk$+"X" <hk> 
838 Fori=1tohab:ifwert$(i)="b"then 1328 return <oi> 
merk=i <ji> 1338 rem ---karte nehmen--- <ne> 
848 next <bi> 1348 mau=mau+t1:merk=®d <bl> 
858 ifmerk>8thengosub1169:g0t01528 <1g> 1358 fori=1tohab <cj? 
868 ifoben$<>"b"then929 <km> 1368 ifmerk>Bthen 1388 <aa> 
878 fori=1to hab:ifart$(i)=wahl$an 1378 ifc(k(mau))<com{i)thenmerk=i <cb> 
dwert$[(i)<>"b"thenmerk=i <kl> 13880 next <fe> 
888 next <gi> 1398 ifmerk=Bthenmerk=hah+1:goto14 ) 
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28 
1488 fori=habtomerkstep-1 

1418 art$(i+1)=art$(i) :wert$(i+1)= 
wert${i):com{ i+1)=com(i) :next 

1428 art$(merk)=a$( k(mau)) :wert$(m 
erk)=b$( k(mau)) :com(merk) =c(k{mau) 
) 
1438 
1448 


hab=hab+1 

ifmau=32then 1798 

1458 ifb$[klmau) )="b"then 1598 

1468 ifa$(k(l mau) ) =re$+"Z"thenkaro= 
karoti 
1478 ifa$( klmau) )=re$+"S5"thenherz= 
herz+i 

1488 ifa$lklmau)) =bk$+"A"thenpik=p 
ik+1 

1498 ifa$lklmau) }) =bk$+"X"thenkreuz 
=kreuz+t1i 

1588 return 

1518 rem 
1528 printchr$( 19) chr$( 31) "compute 
r"d2$"(taste x !) "d$d5$ 

1538 hauf$=art$(merk) :oben$=wert$( 
merk) 

1548 ifoben$="7"thensieb=sieb+? 
1558 ifhauf$=re$+"Z"andoben$<>"b"t 
henkaro=karo-1 

1568 ifhauf$=re$+"S"andoben$<>"b"t 
henherz=herz-1 

1578 ifhauf$=bk$+"A”"andoben$<>"b"t 
henpik=pik-1 

1588 ifhauf$=bk$+"X"andoben$<>"b"t 
henkreuz=kreuz-1 

1598 ifmerk=habthen 1628 

1680 Fori=merk+1itohab:art$(i-1)=ar 
t$(i) 

1610 wert$( i-1)=wert$(i):com( i-1)= 
com(i) :next 

1628 hab=hab-1 

1638 poke198,90:wait198, 1 

1648 gosub212M:gosub2654 

1659 ifhab=®then 1708 

1668 printchr$( 19) :printtab( 37)" " 
1678 ifoben$="8"then56® 

1688 ifoben$="b"thenprintchr$( 19): 
printtab( 37)wahl$ 

1698 goto2828 

1700 rem ---augen--insgesamt---- 
1718 ifsieb=-®then184B 

1728 ifgut=8then 1768 

1738 fori=1tosieb:ifmau=33then 1758 
1748 gosub353B. 

1758 next:gosub2398:g0t01848 

1768 fort=1tosieb:ifmau=33then 1788 
1770 gosub134A 

1788 next:gosub2128:g0t01848 

1798 printchr$( 147) :fori=1t05:prin 
tchr$( 17) :next 


<go> 
<kb> 


<ge> 


<gi> 
<ic> 
<ca> 
<hk> 


<gh> 
<in> 
<sen> 


<ja> 
<fb> 
<fg> 


<jg> 


<do> 
<le> 


<mb> 
<hl> 
<eb> 


<fd> 
<il> 


<gj? 


<bn> 
<ab> 
<1Im> 
<fp> 
<mc> 
<jb> 
<jo> 


<ke> 
<1d> 
<hk> 
<mb> 
<ai> 
<cn> 
<ch> 
<eg> 
<dk> 
<mn?> 
<ad> 


<bg> 
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1588 printtab(8) "keine karten mehr 
da” 

1818 printspce( 11)"druecke +" 

1828 get a$:ifa$="+"then 1788 

1838 g0ot0o1828 

1848 ifgut=Bthen 1928 

1858 fori=itogut:ni=vallauge$(i)) 
1868 ifauge$(i)="d"orauge$(i)="K"t 
henni=18 

1878 ifauge$(i)="as"thenni=11 

1888 ifauge$(i)="b"thenni=28 

1898 ifoben$="b"thenni=?*ni 

1988 mi=mi+tni:next 

1918 ifhab=8then 1988 

1928 fori=1tohab:nc=val(wert$(i)) 
1938 ifwert$(i)="d"orwert$(i)="kK"t 
hennc=18 

1948 ifwert$(i)="as"thenne=11 

1958 ifwert$(i)="b"thennc=28 

1968 ifoben$="b"thennc=2*nc 

1978 mce=mctnc:next 

1988 printchr$( 147) :printnam$tabfl 1 
5) yo$”computer"” 

1998 print "CCCECECCECECCEE" ym$"CCE 
CECCCCCCECEE” 

28088 printmi;tab( 15) yo$mc 

2818 Ffori=1t05:printchr${ 17) :next: 
print”druecke space" 

2828 geta$:ifa$=" "thenrun 

2838 goto2928 

2848 printchr$( 147) 

2858 g0to228 

2868 fori=1to3:printchr$( 17) :next 
2878 print"noch ein spiel ?( j/n)" 
2088 getx$:ifx$="j"thenclr:run 
2298 ifx$="n"thenprintchr$( 147) :en 
d 

2188 goto1268 

2118 rem---karten--zeichnen--( comp 
.)--- 

2128 z=hab:ifz>5thenx=z-5:z=5 
2138 ifz=Athen?2189 

2148 printchr$( 19) ;:printchr$( 144) 


2158 forr=1toz:print"UCCCEI"; :next 


:print 

2168 forr=1t05:fork=itoz:printyo$g 
r$zu$zu$zu$zu$bk$yo$; :nextk:print: 
nextr 

2178 forr=itoz:print"JCCECK”; :next 
:print 

2188 ifz<Sthen:printchr$( 19) :fori= 
1t07:printtab( z#6) d6$:next:goto228 
8 

2198 ifx=®thenprintchr$( 19) :forr=1 
to7:printchr$( 17) ; :next:printd6$ 
2208 ifx=Bthenprintd6$:goto2288 
2218 ifx<5then2258 

2228 forr=1toint(x/5) :foro=1t0S:pr 


<ij? 
<dc> 
<ho> 
<dj> 
<nd> 
<hd> 


<ha> 
<ih> 
<en> 
<mh> 
<bf> 
<la> 
<mm> 


<fg> 
<en> 
<ld> 
<mh> 
<gj?> 


<lp> 


<fa> 
<lc> 


<eb> 
<np> 
<cft> 
<ib> 
<ei> 
<nm> 
<gb> 
<mh> 


<cg> 
<po> 
<lp> 
<nm> 
<do> 
<hce> 


<nd> 


<bo> 


<ck> 


<ph> 


<il> 
<gaf> 
<gp> 
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intyo$gr$zu$zu$zu$zu$bk$yo$; :next: 
print 

22398 foro=1t05:print"JCCECK"; :next 
:print:nextr 

2248 ifx/5=int(x/5)thenprintd6$:pr 
intd6$:return. 

2250 x=x-5*#int(x/5) 

2268 forr=1Itox:printyo$gr$zu$zu$zu 
$zu$bk$yo$; :next:printd6$ 

2278 forr=1Itox:print"JCCECK"; :next 
:printd6$ 

2288 x=®:return 

2298 rem---meine--karten--zeichnen 
2388 printchr$( 19) :forr=1t017:prin 
tchr$( 17} ; :next 

2319 w=gut:g=BR:ifw>Stheng=w-5:w=5 
2328 ifw=Bthen2460 

2338 fori=1tow:printbk$"UCCCLT";:n 
ext:print 

2348 o=1:forr=Atol w*6-2) step6 

2358 printyo$tab(r)farb$(o)left$(gq 
1$,4)auge$(o)" "; 

2368 printtab(r+1)bk$yo$; :o=o+ti:ne 
xt:print 

2378 forr=1to3:fork=1tow:printyo$d 
A$yo$; :nextk:print:next 

2388 o=1:forr=4to(lw*6-2) step6 

2398 printyo$; :printfarb$(o); 

2488 ifauge$( o)="18"orauge$(o)="as 
"thenprinttab( r-1)auge$(o); :goto24 
28 

2418 printtab(r-1)" "auge$l(o); 
2428 printbk$yo$; 

2438 o=o+ti:next:print 

24408 fori=itow:print"JCCCCK”; :next 
2458 ifw=5then249# 

2468 printchr$( 19) :forr=1t017:prin 
tchr$( 17) ; :next 

2478 fori=1t06:printtab( w*6) d6$:ne 
xt 

2488 printtab( w*6) d6$chr$( 19) :retu 
rn 

2498 ifg>@®then2528 

2598 printchr$( 19) :forr=1t015:prin 
tehr$( 17) ; :next:printd6$ 

2518 printd6$:return 

2528 o=6:printchr$( 19) :forr=1t015: 
printchr$( 17) ; :next 

2538 ifg<5then2598 

2548 fori=1Itoint(g/5) :forr=1to5:pr 
intbk$"UCCCCI";:nextr:print 


2550 forr=4t028step6:printyo$; :pri 


nttab(r)farb$(o); 

2568 printleft$(q1$,4)auge$lo)" "; 
:printtab(r+1)bk$yo$; 

2578 o=o+t1:nextr:printleft$(qu$,4) 
ınexti 


2588 ifg/5=int(g/5)thenprintd6$:pr 
intd6$:return 

2598 q=q-5*int(g/5) 

2688 forr=itog:printbk$"UCCCEI";:n 
ext:printd6$ 

2618 forr=Atol g*#6) -2step6:printyo$ 
;:printtab({r)farb$(o); 

2628 printleft$(ql1$,4)auge$lo)" "t 
ab(r+1)bk$yo$; :0o=0+1:nextr:printd6 
$ 

2638 return 

2648 rem ---stapel---zeichen----- 
2658 printchr$( 19) :forr=1to4:print 
chr$( 17) ; :next 

2668 printchr$( 144) :printtab( 33) "U 
CECCI"” 

2678 printtab( 33) yo$tab( 37) hauf$; 
2688 printleft$(q1$,4)oben$" "tabl 
38) bk$yo$ 

2698 forr=1to3:printtab( 33) yo$d4$y 
o$:next 

2788 printtab( 33) yo$; :printhauf$; 
2718 ifoben$="18"oroben$="as"thenp 
rinttab( 36) oben$; :g0t02738 

2728 printtab(36)” "oben$; 

2730 printbk$yo$ 

2748 printtab( 33) "JCCECK" 

2758 print:printtab( 33) "UCCECI” 
2768 forr=1t05:printtab( 33) yo$gr$z 
ugzu$zu$zu$bk$yo$:next 

2778 printtab( 33) "JECCCK" 

2789 return 

2798 rem mem 
2888 rem 


2828 nod=B:qs=® 

2838 ifoben$="b"andwahl$="+"then3®d 
18 

2848 ifoben$="b"thenhauf$=wahl$ 
2858 ifsieb=-®then2928 

2868 rem ---hab--ich--7--- 

2878 fori=1itogut:ifauge$(i)="7"the 
nnod=1 

2888 next 

2898 ifnod=1then3B18 

2988 forr=1tosieb:gosub353ß:next:s 
ieb=R:gosub23A8 

2918 rem ---kann--ich--legen--- 
2928 fori=Itogut:iffarb$(i)=haufgt 
hennod=i 

2938 ifauge$(i)=oben$thennod=i 
2948 ifauge${i)="b"thennod=i 

2958 next 

2968 ifnod>®thennod=8:goto3818 
2978 gosub3538:gosub2388 

2988 iffarb$( gut) =haufforauge$( gut 
)=oben$orauge$( gut) ="b"then3Q1B 
2998 got056® 
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3888 rem----karte--eingeben----- 
3818 ifqs<>1ithen3B4B 

3828 printhe$b1l$"(weg=8;"re$"Z"b1$ 
"=1;"re$"S"b1$"=2;"bk$"A"b1$"=3; "b 
k$"X"b1$"=4) "d5$dA$ 

3838 goto3858 

3848 printhe$bl$"("re$"Z"b1$"=1;"r 
e$"S"b1$"=2;"bk$"A"b1$"=3;"bk$”"X”b 
1$"=4;nimm=5) "d$d5$ 

3858 a$="":geta$:ifa$=""then3858 
3868 ifa$="1"thenok$=re$+"Z7":goto3 
138 E 
3878 ifa$="2"thenok$=re$+"5":goto3 
138 

3888 ifa$="3"thenok$=bk$+"A":got.o3 
138 

3898 ifa$="4"thenok$=bk$+"X":gotu3 
138 

3188 ifqs=-Banda$="5"then345B 

3118 ifqgs=1landa$="8"then358® 

3128 goto3858 

3130 printhe$"( 7=7;8=8;9=9; 10=0;b= 
b;d=d;k=k;as=a)" 

3148 getb$:ifb$=""then3148 

3158 ko$="" 

3168 ifb$="7"thenko$="7" 

3178 ifb$="B"thenko$="8" 

3188 ifb$="9"thenko$="9" 

3198 ifb$="8"thenko$="18" 

3288 ifb$="b"thenko$="b" 

3218 ifb$="d"thenko$="d" 

3228 ifb$="kK"thenko$="k"” 

3238 ifb$="a"thenko$="as" 

3248 if ko$="" then 3148 

3258 nod=8 

3268 fori=Itogut:ifauge$( i)=ko$and 
farb$( i)=ok$thennod=i 

3278 next 

3288 ifnod=#Athen3B1iB 

3298 ifoben$="b"andwahl$="+"then33 
28 

3388 ifauge$( nod) <>oben$andauge$(n 
od) <>"b"andfarb$( nod) <>hauf$then3d 
18 

3318 ifsieb>@andauge$( nod) <>"7"the 
nfori=1tosieb:gosub353@:next:sieb= 
8 

3328 gosub3678 

33380 hauf$=farb$( nod) :oben$=auge$( 
nod) 

3348 fori=nod+itogut 

3358 farb$[i-1)J=farb$(i) :auge$(i-1 
J)=auge$(i) 

3360 next:gut=gut-1 

3378 printchr$( 19) d$I$AHAAFHI3F 
3388 gosub2388:gosub2658 

3398 ifgut=8then 1788 

3408 printchr$( 19) :printtab( 37)" " 


<ab> 
<bh> 


<ck> 
<1j> 


<1d> 
<fb> 


<ki> 
<bf> 
<ci> 


<eb> 
<ad> 
<cm> 
<ae> 


<fk> 
<ak> 
<dd> 
<hm> 
<oh> 
<pe> 
<lc> 
<hf> 
<be> 
<ck> 
<ne> 
<bk> 
<nj> 


<fk> 
<ch> 


<hg> 


<km> 


<ca> 


3418 ifoben$="8"then2B28 

3428 ifoben$="b"thenprintchr$( 19): 
printtab( 37)wahl$ 

3438 goto56# 


3448 rem ---nimm--gedrueckt---- 
3458 ifgqs=1then3818 

3468 ifsieb=8then3498 

3478 fori=1tosieb:gosub353@:next:g 
osub2388 

3488 gqs=1:sieb=B:goto3B1M 

3498 gosub3538:gosuh2308:qs=1:goto 
3818 

3588 ifsieb=-8then568 

3518 fori=1tosieb:gosuh353f:next:g 
osub23889: sieb=#: got 0568 

3528 rem ---neue karte--- 

3538 mau=mau#+ti:gut=gut+1 

3548 farb$( gut) =a$(k(mau)) :auge$(g 
ut)=b$(k{mau)) 

3558 ifmau=-32then 1798 

3568 return 

3578 rem ---bauer--- 

3588 printhe$"welche farbe?("re$"Z 
"b1$"=1;"re$"5"b1$"=2;"; 

3598 printbk$"A"b1$"=3;"bk$"X”b1$” 
=4) "d4$d4$ 

3608 getc$:ifc$=""then3688 

3618 ifvallc$) <iorval(c$) >4then36® 
1%) 

3628 ifc$="1"thenwahl$=re$+"Z" 
3638 ifc$="2"thenwahl$=re$+"5" 
3648 ifc$="3"thenwahl$=bk$+"A" 
3658 ifc$="4"thenwahl$=bk$+"X” 
3668 return 

3678 ifauge$(nod) ="7"thensieb=sieb 
+2:return 

3688 ifauge$( nod) ="b"andgut<>1then 
gosub3588 

3698 return 

3788 printd4$"UCCCCEGUCCCECUCCETEUG 
CCCCULCCCEEI" 

3716 printd4$"B7"d2$"Z B7"d2$"5 B7 
"d2$"A B7"d2$"X Bb X"d2$"B" 


‚3728 printd4$"BZ Z ZB5S 5 SBA A ABX 


X XBX X XB" 
3738 printd4$"B ZZBSSRBAAB 
XXBXX B" 
3748 printd4$"BZ Z ZBS 5 5BA A ABX 
X XBX X XB" 
3758 printd4$"B ZZBSSBAAB 
XXBXX B" 
3768 printd4$"BZ Z ZBS 5 5BA A ABX 
X XBX X XB" 
3778 printd4$"B Z"d2$"7B 5"d2$"7B 
A”d2$"7B X”"d2$"7B X"d2$"bB" 
3788 printd4$"JCCCLCCJCCCEGJCCEECJIE 
CECCJICCCEEK" 
3798 print:print 


3808 printd4$re$d4$rn$d2$"m a u"dS 
$"CC"d5$"m a u"d2$ 

3818 print:printbk$d4$d3$"b y"d3$" 
se e n"d2$"CC”"d2$”s o f t”dA4$dA$ 
3828 print:print:printspc( 9) "druec 
ke "bl$;rn$f1$"space"rf$;Ffo$bk$" t 
o start" 

3838 geta$:ifa$=" "then138 

3848 g0t0o3838 

3858 end 

3860 d$=chr$( 32) :d2$=d$+d$:d3$=d?$ 
+d$ 

3870 d4$=43$+d$:d5$=dA$+d$:d6$=d5$ 
+d$:d$=d5$+d5$ 
38882 rn$=chr$( 918) 
3898 re$=chr$( 28} :gr$=chr$( 838) 
3988 b1$=chr$( 831): F1$=chr$( 139) 
3918 Fo$=chr$( 132) :bk$=chr$( 144) 
3928 c2$=chr$( 145) :rf$=chr$( 146) 
3938 c1$=chr$( 157) 

3948 rem #*** zeichensatz/graphik * 
3958 zu$=chr$( 191) :ym$=chr$( 219) 
3968 yo$=chr$( 221) 

3978 for q=1 to 48 

3988 qu$=qu$+c2$:qg1$=g1$+c1$ 

3998 next q 

4088 return 

4018 rem =================2=====2== 
4828 rem 60671 bytes memory 

4838 rem 18685 bytes program 

4848 rem 88364 bytes variables 
4858 rem 81324 bytes arrays 

4068 rem 89817 bytes strings 

48708 rem 47561 bytes free (9) 

4088 rem ========================= 


:he$=chr$( 919) 


und Probleme ? 
Die 


<fb> 
<bk> 
<il> 
<lc> 


<nk>, 


<fi> 
<hg> 
<of> 
<hc> 
<mo> 
<ff> 
<cj? 
<1p> 
<al> 
<no> 
<ck> 
<gg> 
<om> 
<on> 
<de> 
<fp> 
<kf> 
<ah> 
<jj? 
<a0u> 
<do> 
<ge> 


Commodore-Welt 


Hotline ist 


jeden 
Mittwoch 15 — 19°° 
für Sie da. 
Telefon 
OS91298013 


casar 


Cäsar ist ein Spiel für zwei Personen, das dem 
64er „‚Kaiser”’ nachempfunden ist. Es wurde ge- 
schrieben für Plus4, C12 und 64. 


Sie müssen versuchen, vom einfachen Mann bis zum 
Kaiser emporzusteigen. Dazu gehört vor allem eine ge- 
schickte Bevölkerungspolitik: keine zu hohen Steuern 
und immer ausreichend Korn in den Speichern. Ohne 
genügend Geld läuft aber nichts. Investieren Sie also 
in Mühlen, Marktplätze und Land. Damit lassen sich 
gute Geschäfte machen, und ein Titel winkt oben- 
rein. 


Korn und Land 


Nach Titelbild und Einführungsmusik tragen Sie Na- 
me und Geschlecht der Spieler ein. Eine Tabelle infor- 
miert Sie über Einwohner, Vermögen, Kornreserven, 
Bauland und weitere Einzelheiten, mit denen Sie es 
während des Spiels zu tun haben werden. Jetzt geht’s 
ans Kaufen. Haben Sie zu geringe Kornreserven, oT- 
dern Sie die fehlende Menge. Am besten ist es, Sie be- 
schaffen etwas mehr, als unbedingt nötig. Wenn näm- 
lich der Vorrat schwindet, könnten die Einwohner 
Ihnen das übel nehmen. . 


ANNO MCEMLAXARUII 
FACTUM AB Nn.HESENER 


Wenn Sie sich zum Kauf einer bestimmten Menge 
Korn entschlossen haben, schauen Sie unter KORN 
KAUFEN nach und drücken den Joystick (Port 2) 
nach oben. Auf einer der letzten Reihen des Bild- 
schirms erscheinen sechs Nullen. Unter der ersten be- 
findet sich ein Pfeil. Wenn Sie den Joystick nach 
links oder rechts bewegen, wandert der Pfeil mit. _ 
Drücken Sie den Joystick nach oben, erhöht sich die 
Zahl über dem Pfeil um eins. Ziehen Sie nach unten, 
verringert sie sich. So geben Sie die benötigte Getrei- 
demenge ein. Drücken Sie nun den Feuerknopf. 

Wie Sie sehen, wurde Ihr Vorrat aufgestockt. Haben 
Sie in diesem Bild alles erledigt, auch Land gekauft, 
betätigen Sie nochmals den Feuerknopf. 


Steuern erheben 


Im nächsten Screen treffen Sie die Entscheidung, wie- 
viel Steuern Sie pro Kopf erheben wollen. Je größer 
die Bevölkerung, um so höher können Sie den Betrag 


Bitte lesen Sie weiter auf Seite 39 
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28 rem (p) commodore welt team 
38 rem ====-----=5=2=2=2==2=======: 


48 rem (c) by andreas wesener 
58 rem hattingen 
68 rem 


78 rem basic v3.5 . 
88 rem c16/116 + 6Akb / plus4 


98 rem 
188 gosub s6iB 


118 color4,8,7:colorß,8,?: Ralart, 1 

128 graphic1,1:vol8ß:se= ı0 

130 draw1,38,9t036, 11 

148 saadep ‚ze: ifsp<äthenddt 

158 drawitosp,ze 

168 goto148 

178 data37,13,32,18,30,22,28,27,27 

‚30,26,35 

188 data27,40,28,45,38,50,32,55,35 
‚59,48,63 

190 data47, 65,55,64,61,59,63,62,65 
‚61,61,55 

>08 data59 ‚54,60,58,53,62,47,62,40 

‚59,35,585 

2108 data31,45,30,35,32,28,35,28,39 

‚16,48,17,42,15,38,9,37,13,-1,-1 

220 draw1,92,8t098, 1 

238 readx,y:ifx=8dthen288 

248 drawitox,y 

258 g0oto238 

268 data91,2,88,7,95,41,103,37,184 

‚38,186,37,1804,34,181,34,182,35,96 

‚38 

278 data89,22,95,19,96,20,97,19,95 

‚15,93,16,94,17,88,28,83,8,91,4,92 

‚5,94,4,98,1,8,8 

288 paint1,98,27 

298 draw1,125,5t0126,6 

388 reads2, z2:ifs2=Bthen398 

318 drawitos2,z2 

328 g0t0388 

338 data123,18,121,9,123,7,118,5,1 

13,7,111,18 

348 data118,15,111,280,116,380, 126,4 

0,129,58, 128,57 

358 data125,6®, 128,63, 112,66, 185,6 

3,194,64 

368 data182,62,186,68,187,62,186,6 

3,118,64 

378 data115,64,123,59,126,54,126,4 

6,128,37 

380 datat12, 38, 187, 28,108,18,115,3 
‚128,2,123, 10, B, 12) 

398 draw1,132,43t0133,42 

488 reads3, z3:ifs3=@then458 

418 drawitos3,z3 

428 goto488 

438 data134,42,146,7,155,48, 157,48 


<a93> 


<jf> 
<1h> 
<bl> 
<cm? 
<lo> 
<ı1f> 
<cf> 
<ff> 
<bi> 
<cb> 


<gi> 


<cm>? 


<IFf>" 


<ng> 
<cf> 
<ah> 


‚158,58, 152,51,151,48, 153,49 

448 data146,11,136,43,137,44,136,4 
6,132,43,8,8 

458 drawi, 148,38t0158,32 

468 draw1,141,28t0149,38 

478 paint1,152,37:paint1,145,38 
488 draw1,184,11,185,18 

498 reads4,z4:ifs4=8then57B 

Ssa® drawitos4,z4 

518 goto498 

528 data186,12, 
08,192,380,182,32 
538 data177,57,178,57,180,48, 181,2 
9,187,38,193,25 

548 data195,28,193,13,198,13,164,5 
3, 165,54 

558 data163,55,168,54,161,52,163,5 
2,188, 12 

568 data186,14,185,14,184,11,80,8 
578 paint1,189,31:got058® 

588 draw1,94,44t091,47 

598 reads5,z5:ifs5=®then658 

688 drawitos5,z5 

618 goto598 

628 data98,46,91,45,53,18,78,55 
630 data?71,54,72,56,67,58,67,56,69 
‚56,51,7 

640 data92,44,93,43,94,44,8,8 

658 draw1,62,35t074,28:draw1,75,29 
t063,36 

668 circle1,114,51,7,7 

678 draw1,116,58t0128,78 

688 draw1,112,58t0118,78 

698 readh1,m1:ifh1=8then?768 

780 drawitohl,mi 

718 goto698 

728 data185,72,92,72,91,80,82,88,7 
8,72 

738 data63,72,78,110,84,132,115,13 
8,145, 132 

748 data168,118,166,71,154,71,158, 
80, 140,88 

758 data148,71,129,71,120,78,0,@ 


198,11,196,13,197,2 


768 circle1,117,87,4,4 


778 circle1,145,87,4,4 

788 circle1,88,87,4,4 

798 draw1,78,118t0168, 118 

888 paint1,87,87 

818 paint1,117,87 

828 paint1,145,87 

838 paint1,115,45 

848 draw1,73,115t0157,115 

858 paint1,114,114 

868 char1,7,18,"anno memlxxxvii” 
878 char1,5,28,"factum ab a.wesene 


888 draw1,238,2t0228,19 
898 reads8, zB:ifs8=8then958 
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9388 drawitos8d,zB 

918 goto898 

920 data220, 122,203, 122,203,139,22 
5,139,225,177 

930 data259,177,250,139,272,139,27 
2,122,256,122 

948 data256,19,238,2,238, 122,256, 1 
22,220,122,0,8 

958 draw, 238, 12210238, 177 

968 paint1,258,68:paint1,268, 138 


978 readt1,11,t2,12,la:ift1=®then! 
148 

988 sound1,t1,11:sound2,t2,12:fori 
=otola:next 

998 goto97B 

10888 dataB18,16,770,16,308,818,16, 
7780,16,388 

1810 data818,16,778,16,388,810,16, 
778,16,308 

1828 data822,32,897,32,208,881,8,7 
39,8, 188 

1838 data864,16,834,16,588 

1840 data784,16,770,16,388,704,16, 
770,16,388 

1858 data784,16,770,16,388,784,16, 
770,16,388 

1868 data810,32,770,32,208,784,8,5 
43,8, 188 

1878 data778,16,794,16,508 

10288 data118,28,262,28,1,864,16,78 
4,16, 308 

1898 data834,16,643,16,308,864,16, 
704,16,388 

1188 data169,28,383,28,1,864,16,78 
4,16,388 

1118 data818, 16,596, 16,380,864,16, 
704,16,308 

1128 data854,32,453,32,5880,834,8,6 
43,8, 188 

1130 data784,16,543,16,3800,739,16, 
453,16,4098,80,0,0,0,8 

1148 restore 12088 

1158 ifse=18then1178 

1168 ifse<>18then1188 

1178 sound1,818,32:sound2,596,32:f 
ori=1t01288:next:se=5:g0t0978 

1188 sound1,596,32:sound2, 169,32: 
ori=1t05@88:next:graphicelr 


1198 vol6:g0t04738 

1288 rem ---------------- 722007 
1218 rem anfangseingaben 

122U fen -—- — een 


1238 gosub5618:vol6:printchr$( 27)" 
n" 

1248 ew=58:ko=48:kp=®:1p=8:bk=®: j= 
8 

1250 g2=15088:12=3888:b2=3808:e2=5 
0:k2=48 


1268 km=®:pl=8:mp=B:kd=B 

1278 scnclr:g=15889:1=3809:b1=-3008 
1288 color@,2,7:color4,2,7:color!, 
1 

1298 input"name spieler 1";n1$ 
1308 printc4$c4$"ist spieler 1 "rn 
$"m"rf$"aennlich oder "rn$"w"rf$"”e 
iblich ?" 

1318 getkey ge$ 

1328 ifge$="m"thent$="herr":goto13 
50 

1338 ifge$="w"thent$="frau”:goto13 
58 

1348 goto1318 

1358 printc4$c4$"name spieler 2";: 
inputn2$ 

136@ printc4$c4$"ist spieler 2 "rn 
$"m"rf$"aennlich oder "rn$"w"rf$"e 
iblich ?" 

1370 getkeyg1$ 

1388 ifg1$="m"thent1$="herr":gosub 
1418:g0t01458 

1398 ifg1$="w"thent 1$="frau”:gosub 
1418:got0o1458 

1408 g0t0137® 

1418 na$=ni$:tt$=t$ 

1428 ei=sew:ki=ko:g1i=g:11=1:m1=km:p 
1=mp:o1=pl:d1=kd:x=18 

1438 ew=el:ko=k1:g=g1:1=11:n1$=na$ 
:t$=tt$:km=m1:mp=p1:pl=o1l:kd=d1 
1448 b1=bl:bl=bi:return 

1450 rem ----=-------- 77277777 
1468 rem 
1478 rem + nenne 
14808 kp=int( rnd( 1) #75+15) 

1498 lp=int(rnd( 8) #100+20) 

15988 bk=ew+tint( rnd( 1) #18+1) 

1518 ko=ko-bk 

1528 scnelr:goto1548 

1538 goto1568 

1548 print"##r### ";tt$" ";nag" F** 
##":printchr$(27)"t" 

1558 color@,3,7:color1,1:color4,3, 
7 

1568 senclr:printc4$c4$left$(qr$,5 


)"einwohner.......:";ew 
1578 printleft$(qr$,5)"taler...... 
u ad 


1588 printleft$(qr$,5)"kornreserve 
N; 5KO 

1598 printleft$(qr$,5)"benoetigtes 
korn:";bk 

1688 printleft$(qr$,5)"landhektar. 
u 

1618 printleft$(gqr$,5)"kornpreis.. 


Safer :":kp 
1628 printleft$(qr$,5)"landpreis.. 


RR 


CAESAR 


1638 printleft$(qr$,5)"bauland.... 


1648 printc4$c4$c4$"wirkung"”b$b6$" 
- joystick/richtung 

1658 print" 
1668 printc4$”korn kaufen”b$b2$"ob 
en" 

1678 print"korn verkaufen"b6$b3$"r 
echts 


1688 print"land kaufen”b$b2$"unten 


1698 print"land verkaufen"b6$b3$"1 
inks" 
1708 
1718 
1728 
1738 


print"...weiter”b$b6$"knopf" 
ifjoy( 2)=1then 1778 
ifjoy( 2) =3then 1928 
ifjoy(2)=5then1978 

1748 if joy([ 2) =7then2828 

1758 ifjoy(2)>127thensound1,917,18 
:goto216B 

1768 goto1718 

1778 printc4$”"wieviel mass korn ka 
ufen:"; 

1788 gosub 1799: goto1898 

1798 fori=1t06:ma(i)=@:next:print" 
BBHHRR"c1$; :a$=c4$+c1$+chr$( 94) +c2 
$+c1$:5=6 

1888 ifjoy(2)=1andma( s) <9thensound 
1,7,2:ma( s)=ma(s) +1 

1818 ifjoy( 2)=Sandmaf( s) >dthensound 
1,7,2:ma(s)=mals)-1 

1828 ifjoy(2)=7ands>1thensound]l,7, 
2:5=s-1:printc4$" "c2$c1$c1$; 

1838 ifjoy( 2) =3ands<6thensound1,7, 
2:5=s+1:printc4$"” "c2$; 

1848 ifjoy( 2)>127thensound1,917,18 
:g0t01878 

1858 printright$(str$(ma(s)),1)a$; 
1868 goto1888 

1878 ma=ma( 6) +ma( 5) #18+ma({ 4) #188+m 
a( 3) #1008+ma( 2) *10890+mal 1) *108008 
1888 return 

1898 g=g-(ma*kp) :ko=ko+tma 

1988 ifx=1ßthengosub 1418:g0t01538 
1918 ifx<>18thengosub2880:got01538 
1928 printc4$"wieviel mass korn ve 
rkaufen:"; 

1938 gosub1798:g0ot0o1948 

1948 g=g+(ma*( kp-2)) :ko=ko-ma 

19508 ifx=18thengosub 1419:g0t01538 
1968 ifx<>1ßthengosub2888:g0to 1538 
1978 printc4$"wieviel hektar land 
kaufen:”; 

1988 gosub1798:g0t01998 

1998 1=1+ma:bl=bl+ma:g=g-(ma*lp) 
2008 ifx=1ßthengosub1418:g0t01538 
2B1IB ifx<>ißthengosub2888:goto 1538 


<gh> 
<ii> 
<ip> 
<nc> 


<nl> 
<bh> 


<bk> 
<ja> 
<pd> 
<nf> 
<jn> 
<hg> 


<jn> 
<fm> 


<el> 
<dj> 


<np?> 
<af> 
<hf> 
<bm> 
<ba> 


<ao> 
<bm> 
<oi> 


<il> 
<em> 
<jk> 
<chb> 
<ab> 


<jn> 
<jl> 
<nh> 
<ij> 
<mh> 


<ad> 
<o0o> 
<kj? 
<oc>? 
<ma> 
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2828 printc4$"wieviel hektar land 
verkaufen:"; 

2838 gosub1798:goto2848 

2848 ifbl-ma<dthenprinthe$left$(qr 
$,5)"zu wenig bauland":fori=1t0999 
:next:goto1538 

20598 1=1-ma:bl=bl-ma:g=g+(ma*( 1p-2 
J) 
ifx=18thengosub 1419: g0t01538 


2878 ifx<>1ißthengosub2888:g0t01538 
2880 e2=ew:g2=g:k2=ko:12=1:m2=km:p 
2=mp:02=pl:d2=kd 

2098 ew=e2:g=g2:ko=k2:1=12:km=m2:m 
p=p2:pl=02:kd=d2 

2188 na$=n2$:tt$=t1$:n2$=na$:t1$=t 
t$ 

2118 b2=bl:bl=b2 

2128 return 

PI30 ren Free ee mg 
2148 rem steuern 

2150 ren 
2168 scnelr 

2178 printc4$"wieviel steuergeld p 
ro einwohner ?"” 

2188 printb4$b3$"”(ab 18 taler) 
2198 gosub1790:g0t02288 


2288 
2218 
2228 
2238 
2248 
2258 
2268 rem 
2278 scnclr:color®,4,7:color4,4,?7: 
color1,1 

2288 printtab(6)c4$c4$"taler:";g 
2298 printtab(4)c4$"bauland:";bl 
2388 printc4$c4$"preise: kornmuehl 
en"b5$"?2R88 taler" 

2318 printleft$(gr$,8)"marktplaetz 
e"bA4$"A4088 taler" 

2328 printleft$(gqr$,8) "palastteil" 
b6$"18808 taler"” 


ifma<18thenprintc2$:g0t02198 
g=>-g+(ew*ma) :sg=ma 
ifx=18thengosub1418 
ifx<>18thengosub2888 

rem 


‚2338 printleft$(gqr$,8) "kathedralen 


teil 49098 taler 

2348 printc4$"wirkung”b$b6$" joysti 
ck/richtung"” 

2350: print" ----==-7= >77 
2368 printc4$"kornmuehlen kaufen”b 
5$"oben"” 

2378 print"marktplaetze kaufen”b4$ 
"rechts" 

2388 print"palastteil kaufen”b6$"u 
nten" 

2398 print"kathedralenteil kaufen 
links" 

2488 printb2$"”...weiter”b$b2$"knop 


<00> 
<fk> 


<ek> 


<di> 
<fc> 
<k1> 


<mm> 
<fg> 


<np> 
<ho> 
<co> 
<kh> 
<mj> 
<393> 
<ni> 


<ao> 
<li> 
<ph> 
<go> 
<mj? 
<fp> 
<pn> 
<he> 
<1j? 
<id> 
<if> 
<bg> 
<oc> 
<ch> 
<hi> 
<ac> 
<ac> 
<jo> 
<hd> 
<al> 
<mg> 


<kh> 


<om> 
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fr 
2418 
2420 
2438 


ifjoy(2)=1then2478 

ifjoy( 2)=3then2548 

if joy(2)=5then261@ 

2448 if joy( 2) =7then2788 

2458 ifjoy(2)>127thensound1,917,18 
:g0t02798 


2468 goto2418 
Fan? printe4$"wieviele muehlen kau 
en 


2488 gosub 1790: g0t02498 

2498 ifb1-(ma*188) <dthenprinthe$le 
ft$(gqr$,5)"zu wenig bauland":fori= 
1t0999:next:goto2278 

2508 bl=b1-(ma*10B) :g=g-(ma*2800) : 
km=km+tma 

25108 ifx=18thengosub 1418 

2520 ifx<>1dthengosub2088 

2538 goto2278 

2548 printc4$"wieviele marktplaetz 
e kaufen:”"; 

2558 gosub 1798: g0t02568 

2568 ifbl-(ma*288) <dthenprinthe$le 

ft$(qr$,5)"zu wenig bauland":fori= 
1t0999:next:goto2278 

2578 bl=b1-(ma*288) :g=g-(ma*4B0B) : 

mp=mp+ma 

2588 ifx=18thengosub 1418 

2598 ifx<>1@thengosub2988 

2688 g0ot02278 

ch printc4$"wieviele palastteile 
2620 gosub 1798: got 02630 

2638 ifbl-(ma*19808) =>Bthen2658 
2648 printhe$left$(gqr$,5)"zu wenig 
bauland":fori=1t0999:next:goto227 

8 

2658 ifpl+ma>1ßthenprinthe$left$(q 
r$,6)"zu viele teile":fori=1t0999: 
next :goto2278 

2668 b1l=bl-(ma*18908) :g=g-(ma*1808 
8) :pl=pl+ma 

2678 ifx=18thengosub 1418 

2688 ifx<>1idthengosub288 

2698 g0t02278 

2788 printc4$"wieviele kathedralen 
teile:”; 

2718 gosub 1798: g0t02728 

2728 ifbl-(ma*20988) =>@then2748 
2738 printhe$left$(qr$,5)"zu wenig 

bauland":fori=1t0999:next:goto227 

8 B 

2748 ifkd+ma>12thenprinthe$left$(gq 
r$,5)"zu viele teile": fori=1t0999: 
next:g0t02278 

2758 bl=b1l-(ma*#2808®) :g=g-(ma*4u88 
8) :kd=kd+ma 

2768 ifx=1@thengosub1418 


<hf> 
<ol> 
<ie> 
<kb> 
<mä> 


<ph> 
<ea> 


<de> 
<nc> 


<ni> 


<1f> 
<ii> 
<kp> 
<pk> 


<of> 
<eh> 


<pe> 


<ek> 
<na> 
<ib> 
<mp> 


<fl> 
<pc> 
<em> 


<ck> 


<ha> 


<dm> 
<hn> 
<nj? 
<bo> 


<ne> 


<do> 
<ct> 


<dl> 
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2778 
2788 
2798 
2888 
2818 
2828 
2838 
2848 
2858 
2868 


ifx<>1i1@thengosub2888 
goto2278 
ifx=18thengosub 1418 
ifx<>18thengosub2888 
rem ---------- 23-2220 
rem ----------- 72077 
senelr 
ifko<-1 or 
ifko<bk or 


sg>5888then2898 
sg>ewthen2918 

2878 ifko=bk or sg>99then2938 

2888 ifko>bk or sg<3@then2958 

2898 y=int(rnd( 1) *(ew*2) +1@®) 

2988 g0ot02978 

2918 y=int(rnd( 1) *ew+20) 

2928 goto2978 

2938 y=int(rnd( 1) *28+1) 

2948 goto2978 

2958 y=int(rnd( 1)*18+1) 

2968 goto2978 

2978 m=int(rnd( 1) #50+15) 

2988 printe4$o3$”es wurden ";m"” ei 
nwohner geboren." 

2998 printadto38"es starben "„:y"e 
inwohner. 

3888 printc4$c3$"an ihren kornmueh 
len verdienten sie" 

3018 printc3$" ";km#65” taler. 
3828 printc4$c3$”an ihren marktpla 
etzen verdienten sie" 

3838 printc3$” ";mp*105” taler. 
3848 printc4$c4$c4$c3$"wir schreib 
en das jahr"; 17@00+3j"." 

3858 ew=ewtm 

3868 ew=ew-y 

3078 g=g+(km*65) 

30888 g=g+(mp*105) 

3898 ifx=18thengosub1418 

3188 ifx<>18thengosub2888 

3118 aq=j:ifag>48thenag=48 

3128 ifag<i6thenag=16 

3138 vi=int(rnd( 1) *66+ag) 

3148 v2=int(rnd( 1) *66+agq) 

3158 ifx=1Bandv1=jthenhy=1@:tn$=n1 
$:td$=t$:g0t03768 

3168 ifx=18andj=185thenhy=18:tn$=n 
1$:td$=t$:g0t03768 

3178 ifx<>1@andv2=jthenhy=5:tn$=n2 
$:td$=t1$:g0t0376# - 

3188 ifx<>1@andj=185thenhy=S:tn$=n 
2$:td$=t1$:g0t03768 

3198 printtab( 18) left$(qd$,8)"bitt 
e knopf druecken !"” 

3288 ifjoy(2)>127thensound1,917,18 
:g0t03228 

3218 got03288 

3228 ifew<28then55B8 

323@ ifm<ythen3988 


u nn el u u en Be Ep nn 
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CAESAR 
3248 ifg<-39999then4218 
3258 ren Free 
3268 rem titel 
3238. ram. = 
3288 ifg>2888Qandl> 1BAQBandew>2BBa 


ndtt$="herr"thentt$="baron":goto35 
92 i 

3298 ifg>4B09Bandl>288BBandew>5BBa 
ndtt$="baron"thentt$="markgraf":go 
t0o3598 

3398 ifg>6AB8Bandl>3RAABandew>7%Ba 
ndtt$="markgraf"thentt$="fuerst”:g 
cot03598 

3318 ifg>80QBRandl1>4908Bandew>9UBa 
ndtt$="fuerst"thentt$="herzog":got 
03598 

3320 ifg>10009Band1>5888Bandpl1=18a 
ndew> 1188andtt$="herzog”thentt$="k 
oenig":goto3598 

3330 ifg>20@W@Bandl>1508BBandp1=1® 
andkd=12andtt$="koenig"thentt$="ka 
iser":goto3598 

3348 ifg>2088Bandl>1988Bandew>28Ba 
ndtt$="frau"thentt$="baronin":goto 
3598 

3358 ifg>409ABandl>28@9Bandew>5Bda 
ndtt$="baronin"thentt$="markgraefi 
n":g0t03598 

3368 ifg>60W8Bandl>3908Bandew>7BBa 
ndtt$="markgraefin"thentt$="fuerst 
in":g0t03598 

3378 ifg>8B0ABandl>488BBandew>90Ba 
ndtt$="fuerstin"thentt$="herzogin" 
:g0t03598 

3388 ifg> 10A8RBandl>50988andpl=1Ba 
ndew> 11@89andtt$="herzogin"then3488 
3398 goto341@ 

3488 tt$="koenigin":g0t03598 

3410 ifg>22008Bandl>15898Bandpl=1 
andkd= 12andtt$="koenigin"”thentt$=" 
kaiserin":goto3598 


3A20 Lem me 
3438 rem wechsel sp. 1/2 

3aa0 Tem nenn 
3458 ifx=18then3478 


3468 ifx<>1ßthenc=19:g0t04738 

3478 ew=B:ko=8:km=B:mp=8:pl=9:kd=B 
:1=8:b1=8:kp=8:1p=B:g=0 

3488 ifx=18thenx=9:g0t03588 

3498 ifx<>1dthenx=18 

3500 ifx=18thengoto3528 

3518 ifx<>1ßthengoto3548 

3528 g=gi:ew=el:ko=k1:km=m1:mp=p1: 
pl=01:kd=d1:bl=b1:1=11:na$=n1$:tt$ 
=t$: j=j+1 

3538 printchr$(27)"n":color1,1:got 
01458 

3548 g=g2:ew=e2:ko=k2:km=m2:mp=p2: 


<np> 
<pj? 
<1h> 
<ib> 


<hi> 


<ej? 


<ii> 


<en> 


<cm> 


<cj? 


<eh> 


<ge> 


<ci> 


<kb> 


<ko> 
<ok> 
<fn> 


<ko> 
<jm> 
<aj? 
<ea> 
<km> 
<im> 


<ik> 
<hb> 
<lo> 
<en> 
<bm> 


<ig> 


<ii> 
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pl=02:kd=d2:bl=b2:1=12:na$=n2$:tt$ 

=ti$ 

3558 rem ------=-=-------- == 
3568 rem 
35370 Lem —— ee nn 
3588 printchr$(27)"n":color1,1:got 

01458 j 

3598 scnclr 

3688 color®,7,8:color4,7,B:color1, 
8,7 
3618 sound1,7,78:sound1, 169,28: sou 
nd1,345,28:sound1,453,28 

3629 printc4$c4$left$(gr$,5) "ihnen 
wurde ein neuer titel” 

3638 printce4$c4$left$(gqr$,5)"verli 
ehen. 

3648 printc4$c4$left$(qr$,5)"sie s 
ind nun ";tt$”.” 

3658 ifx=1@thent$=tt$:got0o3688 
3660 ifx<>1ßthent 1$=tt$:goto3680 
3678 printtab( 18) left$(gd$,5)"bitt 

e knopf druecken 

3688 ifjoy(l 2)>127:hensound1,917,18 
:g0ot0o3788 

3698 goto3688 

3788 iftt$="kaiser"thend4388 

3718 iftt$="kaiserin"then4388 

3728 iftt$<>"kaiser"”ortt$<>"kaiser 
in”"then3428 

3738 
3748 
3758 
3768 


BER 
scnelr:printchr$( 27) "n" 

3778 colorß,1:color4,1:color1,2,5 
3788 sound1,453,48:sound1,345,4®8:s 
ound1,169,48:sound1,7,48 

3798 printb4$26$"0"zm$"P"z4$ 

3888 printb4$26$2j$" "z9$24$b3$"so 
eben ist die nachricht” 

3818 printb2$ze$ze$zp$zj$" "zI$"L" 
ze$ze$" eingetroffen,dass” 

3828 printb2$"0"zm$zm$b3$zm$zm$"P" 
b2$;td$"” ";tn$ 

3838 printb2$"L"ze$ze$b3$ze$ze$zp$ 
" im alter von" 

3848 printb2$zm$zm$"P"zj$" "z9$"0" 
zm$zm$b2$; j" jahren” 

3858 printb4$29$zj$" "z9$zj$b3$”ve 
rstorben ist." 

3868 printb4$z29$z2j$" "z9$zj$ 

3878 printb4$z29$zj$" "z9$zj$b3$”"he 
rzliches beileid!"” 

3888 printb4$z29$z23j$" "z9$z23$ 

3898 printb4$z9$"L"ze$zp$zj$ 

3988 print" 

3918 ifhy=1dthengw$=n2$:tw$=t1$ 
3928 ifhy<>idthengw$=n1$:tw$=t$ 
3938 printc3$c3$;tw$" ";gw$” hat g 


<pe> 
<dl> 
<im> 
<ek> 


<kj> 
<ba> 


<nh> 
<ld> 
<ok> 
<oh> 


<eo> 
<ec> 
<bo> 


<ml> 


<eb> 
<kc> 
<ig> 
<gi> 


<gk> 
<mo> 
<fh> 
<fb> 
<fj> 
<ff> 


<io> 
<kb> 


<me> 
<hi> 
<ja> 
<eh> 
<ol> 


<kk> 
<op> 


<lo> 
<bi> 
<md> 
<ia> 
<ai> 
<mi> 


CAESAR 


ewonnen.":c=® 

3948 printtab( 8) c4$c4$"herzlichen 
glueckwunsch!" 

3958 ifjoy(2)>127thensound1,917,18 
:g0t03978 

3968 g0t0395® 

3978 goto4738 

3988 scnclr 


3990 Tem >77 
4888 rem 


au10 rem a — 
4828 color®,5,8:color4,5,8:color1, 
2,6 

4838 fori=1to2:forv=Btolstep-1 
4848 volv:sound1,7,28 

4858 next:next 

4068 printc4$c4$left$(gr$,5)"sie h 
aben eine schlechte" 

4878 printc4$left$(qr$,5) "einwohne 
rpolitik gefuehrt." 

4088 printc4$left$(qr$,5) "deshalb 
werden jetzt mass-" 

4898 printc4$left$(gqr$,5)"nahmen g 
egen sie ergriffen!" 

4188 km=B:mp=@:pl=8:kd=B:ko-8 

4118 ifg>@theng=®d 

4128 g=g-19999:1=1-b1l:b1=® 

4138 ifjoy( 2)>12?thensound1,917,18 
:goto4158 

4148 goto4138 

4158 vol6 

4168 ifx=18thengosub1418:got03318 


4178 ifx<>1ißdthengosub288B:g0ot03318 
4180 rem mm nn 
4198 rem bankrott 

A200 ram Fraser 


4218 scnelr 
4228 color®,6,7:color4,6,7:color1, 
1 

4238 fori=1t02:forv=8tolstep-1 
4248 volv:sound1,7,28 

4258 next :next ; 

4268 printc4$c4$left$(gqr$,5)"sie s 
ind leider bankrott." 

4278 printc4$left$(gqr$,5)"daher we 
rden grosse teile" 

4288 printc4$left$(qr$,5)"ihres be 
sitzes gepfaendet." 

4298 km=B:mp=@:p1=B:kd=9:g=g+5NAB2 
:ko=8:1=1-bl:bl=® i 

4308 ifjoyl 2)>127thensound1,917,18 
:goto4328 

4318 goto4388 

4328 vol6 

433@ ifx=1@thengosub 1418: g0t03318 
4348 ifx<>1ßthengosub2888:g0t03318 
4358. vem: Sm 
4368 rem 


4330 rem FH 

4388 scnelr 

4398 color®,8,7:color4,8,7:color1, 
1 

4488 sound1,516,48:sound1,383,48:s 

ound1,453,48:sound1,169,5® 

4418 fori=1to1@BB:next 

4428 sound1,169,48:sound1,453,4®8:s 

ound1,383,48:sound1,516,48:soundl, 

383,58 

4438 open2,8,2,"8:kai/tt,s,r" 

4448 input#2,tk$ 

4458 input#2,nk$ 

4468 close2 

4478 print" 

4488 printb$b3$"der alte kaiser wa 

r" 

4498 printc4$left$(qr$,6) ;tk$" ";n 

k$ x 

4508 printb5$"B" 

4518 printb4$"C"ym$"C" 

4528 printb5$"B " 

4538 print” UCCC"zg$"CCCI"b5$"der 

neue sind sie!" 

4548 print" BcaesareB" 

4558 print" B"bA4$b3$"B" 

4568 print” B anno"”b2$"B” 

4578 print" B";1780+3j"” B” 

4588 print” B"b4$b3$”B 

4598 print" JCCCCCECK 

4688 ifx=18thennt$=t$:nn$=n1$:goto 

4628 ; 

4618 ifx<>18thennt$=t1$:nn$=n2$:go 
t04628 

4628 open2,8,2,"@@:cae/tt,s,w" 

4638 printf#2,nt$ 

4648 print#2,nn$ 

4658 close2 

4668 printtab( 18) c4$c4$cA$"bitte k 
nopf druecken":c=® 

4678 ifjoy(2)>127thensound1,917,18 
:g0oto4698 

4688 goto4678 

4698 goto4738 

4900 rem rn 

4718 rem 

4928 Ten = en 

4738 printchr$(27)"n":scnelr:vol6 

4748 printtab( 15) rn$"menue"rf$ 

4758 printc4$c4$c3$c3$rn$"+"rf$" 
altes spiel laden” 

4768 printc4$c4$c3$c3$rn$"-"rf$" 
spielstand speichern” 

4778 printc4$c4$c3$c3$rn$"*"rf$" 
neues spiel beginnen” 

4788 printc4$c4$c3$c3$rn$"/"rf$"” = 
ende” 

4798 printleft$(qd$,4)"...knopf/ob 


[i 
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en... = weiter" 

4808 getkeyu$ 

4818 ifu$="+"then4988 
4828 ifu$="-"then5188 
4838 ifu$="*"thenrun 1238 
4848 ifu$="/"then5468 


4858 ifjoyl2)>129ande=1@thensound! 


‚917,18:g0t03478 
4858 gaotoA8ß8 


4870: ran ===> 


4888 rem caesar-datei 


4890 rem === >> 
4988 open1,8,8,"®:caesar-dat ,‚s,r 


4918 inputf#1,g1 
4928 input#1,11 
4938 input#1,e1l 
4948 inputf#1,k1 
4958 input#1,m1 
4968 input#1,p1 
4978 input#1,01 
4988 input#1,d1 
4998 inputf#1,b1 
5088 input#f1,t$ 
5818 input#1,n1$ 
5828 input#1,g2 
5838 input#1,12 
5848 input#1,e2 
5858 input#1,k2 
5B68 input#1,m2 
58728 input#1,p2 
5888 input#1,02 
5898 inputf#1,d2 
5188 inputf1,b2 
5118 input#1,t1$ 
5128 input#1,n2$ 
5138 input#1,x 
5148 input#l1,c 
5158 input#1,j 
5168 close 

5170 g0oto4738 


5188 open1,8,1,"@®:caesar-dat ,‚s,w 


5198 printf#1,g1 
5288 printf#1,11 
5218 printf#1,e1 
5228 printf#1,k1 
5238 print#1,mi 
5248 print#1,p1 
5258 print#1,01 
5268 printf#1,d1 
52780 print#1,b1 
5288 printf#1,t$ 
5298 print#1,n1$ 
5388 print#1,g2 
5318 print#1,12 
5328 printfl,e2 
5338 print#1,k2 
5348 print#1,m2 


38 


5358 print#1,p2 

5368 print#1,02 

5378 print#1,d2 

5388 printf#1,b2 

5398 print#1,t1$ 

5488 print#1,n2$ 

5418 printf#1,x 

5428 printf#1,c 

5438 printf#1,j 

5448 closel 

5458 g0t04738 

5468 printchr$( 27)"n":scnclr:end 

5478 rem ------------------ 

5488 rem einwohnertod 

5490 rem ===-=-=---- 7222-472 

5588 scnclr 

5518 fori=1to2:fort=8Btolstep-1 

5528 volt:sound1,7,28 

5538 next :next 

5548 printc4$c4$c3$c3$"sie haben f 

ast alle einwohner sterben" 

5558 printc4$c3$c3$"lassen,sie meu 

chler!! 

5568 printc4$c4$c3$c3$"dafuer sind 
sie zum” 

5578 printc4$c4$c4$left$(qr$,1@)rn 

$"sklaven !"rf$ 

5588 printc4$c4$c3$c3$"ernannt wor 

den !!":c=® 

5598 ifjoy( 2)>127thensound1,917,18 
:g0t04738 

5698 goto5598 

5618 rem nachspann =============== 

5628 rem * farbceodes/steuercodes * 

5638 c4$=chr$( 917) :rn$=chr$( 918) 

5648 he$=chr$( 819) :c3$=chr$( 829) 

5658 c2$=chr$( 145) :rf$=chr$( 146) 

5668 c1$=chr$( 157) 

5678 rem ### zeichensatz/graphik * 

5688 z4$=chr$( 165) :z6$=chr$( 167) 

5698 z9$=chr$( 178) : ze$=chr$( 175) 

5788 zg$=chr$( 177) :zj$=chr$( 188) 

5718 zm$=chr$( 183) :zp$=chr$( 186) 

5728 ym$=chr$( 219) 

5730 rem #ta#0282% zeichenfolgen * 

5748 for q=1 to 48 

5758 qd$=qd$+c4A$:qr$=gr$+c3$ 

5768 next q 

5778 b$=chr$( 32) :b2$=b$+b$ 

5788 b3$=b3$+b$:bA4$=b3$+5$ 

5798 b5$=b4$+b$:b6$=b5$+b$ 

5898 b$=b5$+b5$: return 

5B1B rem ===================2====== 

5828 rem 68671 bytes memory 

5838 rem 15890 bytes program 

5848 rem 88644 bytes variables 

5858 rem B8062 bytes arrays 

5868 rem 95286 bytes strings 


<of> 
<ba> 
<do> 
<jn> 
<bp> 
<ic> 
<kf> 
<da> 
<ni> 
<mf> 
<ij> 
<eg> 
<gl> 
<od> 
<bg> 
<al> 
<fm> 
<bl> 
<hn> 


<mh> 
<eb> 
<kn> 
<ai> 
<im> 


<fk> 
<fo> 
<hl> 
<al> 
<eo> 
<kk> 
<jm> 
<ja> 
<lo> 
<cf> 
<ja> 
<lo> 
<pj? 
<kp> 
<aj> 


 <jd> 


<bm> 
<la> 
<pc> 
<gb> 
<fm> 
<fk> 
<ml> 
<nm> 
<ld> 
<bi> 
<dd> 
<lo> 
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58780 rem 38789 bytes free (®) 
5888 rem 


Fortsetzung von Seite 31 

ansetzen. Seien Sie aber nicht zu gierig, die Einwoh- 
ner könnten es Ihnen mit hohen Sterberaten heim- 
zahlen. 


Gebäude kaufen 


Als nächstes sollten Sie sich einige Wirtschaftsgebäude 


anschaffen, beispielsweise Mühlen. Eine bringt Ihnen 
pro Runde 65 Taler ein. Wollen Sie zum König auf- 
steigen, müssen Sie einen Palast kaufen. Um gar Kai- 
ser zu werden, brauchen Sie noch eine Kathedrale. 
Sie können natürlich immer nur soviel Gebäude kau- 
fen, wie Sie Bauland besitzen. Tun Sie aber nicht zu- 
viel des Guten. Wenn Sie zu hohe Schulden gemacht 
haben, ist der Bankrott nicht weit. 

Im nächsten Bild erfahren Sie, wie viele Einwohner ge- 
boren und gestorben sind, wieviel Geld Sie verdienen 
und in welchem Jahr Sie leben. Hat sich die Bevölke- 
rung vermehrt, haben Sie gute Arbeit geleistet und 
ein weiterer Schritt nach oben ist getan. Ist sie ge- 
schrumpft, werden Sie bald nichts mehr zu lachen 
haben. Achten Sie auch auf die Jahreszahl: Ab 1716 
können Sie sterben. 

Nun kommt der zweite Spieler zum Zug. Nach jeder 
Runde können Sie den aktuellen Spielstand speichern, 
einen alten laden oder ein neues Spiel beginnen. 

Um das laufende weiter zu spielen, drücken Sie den 
Joystick nach oben und betätigen den Feuerknopf. 


Kaiserkrönung 


Ist ein Kaiser ermittelt, wird der Name des letzten ge- 
laden, mit dem neuen überschrieben und auf Diskette 
verewigt. 


Hanging Joe 


Galgenraten auf dem Computer gibt es in 
unzähligen Versionen. In der vorliegenden können sich 
bis zu fünf Mitspieler beteiligen. 


Galgenraten auf dem Computer gibt es in unzähligen 
Versionen. In der vorliegenden können sich bis zu 
fünf Mitspieler beteiligen. 

Das Spiel Hanging Joe entspricht dem Spiel Galgen- 
raten, das durch eifrige (oder nicht so eifrige) Schüler 
zu Weltruhm gekommen ist. Aufgabe ist es, ein Wort 
in möglichst wenigen Versuchen zu erraten. 

Das Wort wird verdeckt dargestellt. Nun nennt der 
Spieler einen Buchstaben des Alphabets. Dieser er- 
scheint, falls er im Wort vorkommt, an der richtigen 
Stelle des Wortes. Ein Beispiel: Das Wort Esel muß 
erraten werden. Der Ratende nennt den Buchstaben 
E. Jetzt sieht er: E-E-. Nun muß er einen neuen 
Buchstaben nennen — solange, bis er das Wort voll- 
ständig erraten hat. Bei einem falschen Buchstaben 
wird der Galgen aufgebaut. Maximal fünf falsche An- 
gaben dürfen gemacht werden. Beim sechsten Mal ist 
alles zu spät: Der Spieler baumelt am Galgen. 

Tippen Sie das Programm ab, speichern es aber sicher- 
heitshalber vor dem Starten mit RUN ab. 


Bitte lesen Sie weiter auf Seite 43 
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HANGING JOE —. 4 


18 rem hanging joe ============c616 
28 rem (p) commodore-welt-team 

30 rem ======================22n 
48 rem (c) by norbert schmelzer 
58 rem musik & grafik 
682 rem by daniel schmelzer 
78 rem 

88 rem basic v3.5 

98 rem c16/116/plusä 

1088 rem ======================2=== 
118 rem bitte die zeilennummern n 
icht 

128 rem durch 

138 rem renumber veraendern!!!!!! 
tt 

148 vol8:printchr$( 142) 

158 color®,1:color4,1:g0t02878 

168 scncelr:q=1:trap2568 

178 gosub2588 j 

188 rem 188 verschiedene woerter 
198 datageburtstag,wochenende, lieb 


ling, volkswagen ‚unterhaltung, ferns 
ehen : 

288 dataerbsensuppe, liebestrank,co 
mmodore, frankreich, hinterlist, fuss 
ball 

218 datasiegertyp,xanthippe ,maulwu 
rf,sensenmann,blutwurst ‚magenbitte 
r 

228 dataparadox,bussard, senftopf,f 
enster,kaufmann, polizei 

238 dataeisblume ‚gebirge ,weisswurs 
t,brotlaib,suppenhuhn, schneider 
248 datablumenkohl, fahrrad, bauernh 
of,kanaldeckel,probezeit,monitor 
258 datakaufrausch,unterhose, lokom 
otive,bratwurst ,sesamstrasse,pries 
ter 

268 dataselbstfahrer,kartenspiel,p 
olitesse,blumentopf,kradfahrer ,‚mik 
rochip 

278 dataastschere, labyrinth, opernb 
all,lippenstift,gasthaus,kerzenlic 
ht 

288 dataweihnachten, flugzeug, putzl 
appen,hamburg,kanzler,arbeiter 

298 dataohnmacht ‚palisander , suedfr 
ucht,,‚kassierer,,irrflug, selbstmord 
308 datatankstelle,lastwagen,postb 
ote,salamander,kernobst,pastor 

318 dataschmalspur,kloodeckel,wass 
erhahn ‚muenchen ‚ueberfall,klausur 
329 dataseminar,mercedes,salpeter, 
apfelsine,hustensaft,kleister 

338 datawirtschaft ‚minister,bahnho 
f,hobelbank ,‚nordsee, balkon 

348 datastarrsinn,luftballon,preus 
sen,obstschale,klangkoerper,tastat 


<jg> 
<ie> 
xng> 
<oa> 
<je> 
<fh> 
<bl> 


<he> 
<cj? 
<id> 


<ah> 
<oc> 
<ia> 
<1lp> 
<gb> 
<eh> 


<db> 
<ih> 


<oi> 


<kp> 


<gk> 
<di> 
<ld> 


<na> 


<jh> 


<mk> 
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ur 
358 dataheidelberg,tapetenmuster,t 
intenfleck ‚samurai,kirche,spielsal 
on 

368 datawichtelmann,kuester,brombe 
ere,sessellift,bockwurst,polyester 
378 : 

388 fora=1to8:keya,"":next:x=rnd(- 
ti) 
398 
408 
418 
420 
430 : 
448 restore 198+x*18:fora=BtoS:read 
a$l a) :next 

458 x=int(rnd( 1)*#6) :s$=a$( x) 

468 scnclr:color4,1:t=15:r=18: 

478 gosub938:poke239,8 

A8B an=1len(s$) 

498 g$=left$(b$,an) :color1,2,5 

588 char1,5,14,"falsch:"” 

518 char1,5,16,"------ ":char1,5,6, 
"loesung:":gosub1850:t=29@:r=8:r1=3 
528 color1,2,5 

538 char1,5,8,g$ 

548 ifg$=s$then 1220 

558 geta$ 

568 : 

578 ifinstr(v$,q$) =Bthen558 

588 c=8:fori=1toan:ifmid$(s$,i,1)= 
q$thenmid$( g$,i,1)=q$:c=1 

598 next 

688 ifc=1ithensound!,988, 19:g0t0528 
618 ifmid$(s$,y,1)=qg$thenmid$( g$,y 
‚1)=q$:y=y+1:goto528 

628 ifinstr(f$,q$) then528 

638 F$=f$+q$:sound1,480, 18 

648 color1,2,5:chari,4+z,16,q$:z=z 


b$="-------------------- ” 
goto1318 

rem hier beginnt der rateteil 
x=int(rnd{ 1) *18) 


+1:gosub878 

658 ifz=7thengosub 1158:g0t0117® 
668 goto528 

678 rem hier koennen sie selbst wo 
rte 

688 rem eingeben 

698 color1,2,5:color4,2,5 

788 scnclr 

718 char1,8,8,ra$+" esc=wort loesc 


hen"+b4$+"return=wort raten "+re$+ 
y$ 

728 char1,18,3,sp$(g)+"” bitte umdr 
ehen!":color1;2,5 

738 ifp=8then?758 

748 char1,18,8,sp$(p) 

758 s$=left$(b$, 12) 

768 char1,18,18,"ihr wort:"+s$ 

778 getq$ 

788 ifq$=chr$({ 13) andy>4thens$=1left 


<fj> 


<fc> 


<mh> 
<ca> 


<ni> 
<mm> 
<ld> 
<dl> 
<fl> 
<jj> 


<jh> 
<kp> 
<if> 
<di> 
<op> 
<dp> 
<kj> 


<ch> 
<dg> 
<di> 
<eb> 
<im> 
<jo> 
<ae> 


<jd> 
<cc> 
<ha> 


<pb> 
<ec> 
<ol> 


<il> 
<bi> 
<bo> 


<ka> 
<hl> 
<na> 
<gf> 


<ah> 


<jj> 
<bl> 
<am> 
<nh> 
<jk> 
<hf> 
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$(s$,y-1) :g0t0468 

798 ifg$=chr$( 27) theny=1:g0ot0758 
888 ify=13then?778 

818 ifinstr(v$,q$) =@Bthen?78 

828 mid$(s$,y,1)=q$:sound1,989, 18 
838 y=y+1 

848 goto76B 

858 : 


868 rem hier wird ihr galgen gebau 
t 


878 fe=fe+1 

888 onfegoto988, 928, 1048 

898 goto1168 

988 colori,falg)+1,4 

918 chari,t+5,r1,"B"+ra$+sp$(g)+re 
$+"A":return 

928 char1,27,7,cy$+"TU”"+cd$+c1$+cl 
$+"()”":return 

930 : 

948 char1,25,3,p$+"B"+ra$+sp$(gq)*+r 
e$+"A" 

958 color1,18,4 

968 char1,26,6,ra$+c3$+b5$+h2$+re$ 
978 char1,31,7,c2$+ra$+c2$+re$ 

988 char1,32,8,c2$ 

998 fora=7to18:char1,33,a,ra$+" "+ 
re$:next 

1888 color1,6,8:char1,8,19,ra$+d$+ 
d$+d$+d$ 

1818 char1,8,20,d$+d$+d$+d$ 

1828 char1,8,21,d$+d$+d$+d$+re$ 
1838 goto1138 

1848 fora=18t018:char1,21,a,b4$:ne 
xt 

1858 color1,18,fa(g)+2:chari,t+7,r 
‚ HI":color1,9,5:chari,t+7,r+1,"F6G 
1868 chari,t+6,r+4,"J"+b2$+"J":col 
ori,falg)+1,5 

1878 chari,t+6,r+2,"DLME":chari,t+ 
6,r+3,"N”+ra$+b2$+re$+"N" 

1888 chari,t+7,r+4,ra$+b2$+re$:col 
or1,7,falg) 

1898 char1,t+7,r+5,"R5":chari,t+7, 
r+6,"CC":chari,t+7,r+7,"CC" 

1188 color1,12,falg) 

1118 char1i,t+7,r+8,p$+"KK" 

1128 return 

1138 color1,9,7:char1,25+ki,17,"O0P 
PQ"+cd$+c1$+"OPPR" 

1148 return 

1158 char1,28+ki,17," "+cd$+c1$+" 
":ki=ki-1:g0t01138 

1168 sound3,808,29:g0t01158 

1178 char1,26,7,"":printchr$( 27)"t 
":poke2024,38:poke2921,18 

1188 sound1,888,3:sound2, 988,5 
1198 printchr$( 27) "w";cy$chr$( 145) 


HANGING JOE 


" TU":sound1,788,5:sound3, 988, 18 
1208 char1,8,8,"":g0t01288 

1218 color1,3,1 

1228 restore2468:g=1 

1238 gosub2438 

1248 : 

1258 rem berechnung erraten/anzahl 
worte 

1268 gp(q)=gplg)+g:ifgplg)>B®thensp 
(q)=ep(g) /gplg) :splgq)=188/sp(gq) 
1270 goto1738 

1288 restore2588@:g=@:char1,5,8,f1$ 
+s$+fa$ 

1298 gosub2438 

1300 goto1268 

1318 gosub1329:g0t01388 

1328 scnclr:print 

1338 rem titel 

1348 printtab( 11) cy$"B"ra$d$b5$b2$ 
re$"A" 

1350 printtab( 11) "B"ra$b3$"hanging 
-joe"b3$re$"A" 

1368 printtab( 11) "B"ra$d$b5$b2$re$ 
na" 

1378 return 

1388 color1,9,6:poke239,® 

1398 char1,2,18,"wieviel angeklagt 
e (max 5)":inputk1$:k1=val(k1$) 
1488 ifkl=<Bork1>5then 1398 

1418 fora=itokl 

1428 char1,2,12+a,"":printa". ange 
klagter dein name”; :inputsp$( a) 
1438 ifsp$(a)=""then 1428 

1448 iflen( sp$(a))>18thensp$(a)=le 
ft$(sp$(a), 10) 

1458 fa(la)=a:nexta 

1468 scncir:sp$(®)="eine andere pe 
rson" 

1478 char1,13,8,p$ 

1488 ifkl=1thenprint”der angeklagt 
e":elseprint”die angeklagten” 

1498 t=8:r=3:r1=2 

1588 forg=1tokl 

15108 gosub989:gosub 1958:t=t+11:ift 
>32thent=7?:r=16:r1=15 

1528 nextgq:q=1 

1538 restore2589:gosub243B 

1548 rem ... hauptschleife 
1558 ifg>kltheng=1 

1568 ep(q)=ep(g)+1 

1578 y=1:z=1:ki=1:g$="":s$="":r$=" 
":fe=B 

1588 gosub 1328 

1598 color1,14,7 

1688 char1,5,18,ra$+"c"+re$+"omput 
erauswahl der begriffe"” 

1618 p=q+ti:ifg>=klthenp=1 

1628 ifkl=1thenp=8 


1638 char1,5,12,ra$+”a"+re$+"uswah 
1 durch "+sp$(p) 

1648 getq$:ifg$=""then1648 

1658 ifg$="c"thenchar1,5,1@,ra$+fl 
$+"c”+re$+fa$:gosub 1698: got0428 
1668 ifg$="a"thenchar1,5,12,ra$+fl 
$+"a"+re$+faß:gosub 1698: goto698 
1678 goto1648 


1688 nextq 
1698 fori=1t018 


17088 fora=908t0688dstep-58:sound1i,a 
‚i:nexta 

1718 nexti:return 

1728 gosub698:goto46® 

1738 gosub1328:print:print 

1748 rem hitparade 

1758 v=® 

1768 fora=1tokl 

1778 ifsp(a)>=sp(a+t1)then1828. 
1788 h$=sp$( a) :h=sp(a) :g=gpla) :e=e 
p(a) :sp$(a)=sp$(a+1)::sp(a)=spla+1) 
:f1=fala) 

1798 ep(a)=ep(a+1) :gpla)=gplat1):s 
p$( a+1)=h$:sp( a+1)=h:gpla+1)=g:ep( 
a+1)=e 

18088 fFala)=fala+tl) :fala+1)=f1 

1818 v=1 

1828 next 

1838 ifv=1then 1758 

1848 color1,14,7:g=1 

1858 printtab( 7) "name”tabf 15) "wort 
e"b2$"richtig prozent" 

1868 print:fora=1tokl 

1878 ifsp(a)=sp(la-1)theng=g-1 

1888 printg".”sp$(a)tab( 16); 

1898 printusing”###";epla);:printt 
ab( 24) ;:printusing"#4#";gpla); :pri 
nttab( 32); 

1988 printusing”###.#";sp(a):print 
1910 g=g+1 

1928 next 

1938 char1,18,28,y$+”"wer spielt we 
iter ":poke239,0:na$="" 

1948 inputna$:ifna$=""theng=g+1:go 
to155® 

1958 iflen(na$)>iBßthenna$=left$(na 
$,10) 

1968 ifna$="ende"thensys62359:end: 
rem ende und keytasten normal 

1978 c=®:fora=1tokl:ifna$=sp$la)th 
eng=a:c=1 

1988 next 

1998 ifc=®thensenclr:char1,2,5,na$ 
+" kenne ich nicht !":g0t02928 
2088 g0ot01558 

2B1B rem falsche eingabe 

2828 char1,2,7,"return=naechster s 
pieler"” 
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2838 char1,2,9,chr$( 34) +"ende"”+chr 
$( 34) +"=beenden"” 

2848 char1,2,11,"sonst name des sp 
ielers eingeben" 

2858 goto1938 

2868 rem neue zeichen einlesen 
20878 poke55,255:poke56,55:clr:rem 
basicspeicher begrenzen 

2888 trap2568:rem-fehler? ab nach 
zeile 2558 
2898 celor1,1 
2188 scnclr 
2118 rem 

en 

2128 print"monitor":char1,8,6,"t d 
BoD d8@B 3888" :print:print:print"x 
":print 

2138 print"run 2168":rem zeilenzah 
1 

2148 poke1319,19:fora=1t05:poke131 
9+a3,13:next:poke239,7 

2158 end 

2168 color1,2:gosub2648 

2178 restore2288: fora=14856t015823 
:readx:pokea,x:next 

2180 v=65298:pokev,peek( v)and251:p 
okev+1,peek( v+1) and3or56 

2198 goto168 

2288 data252,206,255,254,252,2806,2 
55,86 

2218 data63, 183,255, 127,63, 183,255 
‚187 

2228 data126, 126,126, 126,126, 126,1 
26,126 

2238 data?7,15,31,63,68,60,68,68 
2248 data224,248,248,252,68,60,68, 
68 

2258 data63, 127,179, 126,63,28,11,7 
2268 data252,254,285,126,252,56,28 
8,224 

2270 data1,8,1,0,15,29,55,61 

2288 dataß, 128,0, 128,248,184,236, 1 
88 

2298 data24,24,24,680,60,680,60,24 
2388 data24,24,680,68,60,68,68,24 
2318 data255,255,254,247,226,119, 1 
26,127 

2328 data255,255,127,247,99,246,12 
6,254 

23380 data68,68,60,69,69,690,68,68 
2348 data255,195,216,195, 195,216, 1 
95,255 ’s 

2358 data255,195,24,195,195,24,195 
‚255 

2368 data255,195,27,195,195,27,195 
‚255 

2378 data126,252,254,127,127,127,1 
26,124 


zeichensatz verschieb 


<mc> 
<ih> 
<nk> 
<kh> 
<kd> 
< jm> 
<ki> 


<ga> 


<lp> 


<na> 
<ia> 
<cd> 
<fm> 
<fe> 


<if> 


<ec> 
<bg> 


<ei> 
<io> 


<ga> 
<da> 


<gh> 
<am> 


<am> 
<ag> 


<gi> 
<pe> 
<00> 


<gk> 


<ak> 
<ka> 


<nn> 
<go> 
<jd> 


<jj> 
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2388 data126,63,127,254,254,254,12 
6,62 

2398 data1,8,1,0,1,8,1,0,128,8,128 
‚2,128,8,128,8,-1 

2408 : 

2418 rem hier beginnen die 
2428 : 

2438 readx:ifx<>-ithensound]l,x,15: 


g0t02438 
2448 return 


2458 : 
2468 data596,596,596,818,685,685,6 
85,854,739,739,739,917,739,685,685 
2478 data643,685,643,596, 19020,778, 
784,7708,798,739,704,770,798,739,78 
4,770,798,739 
2488 data704,704,704,704,770,704,6 
85,685,643,685,643,596, -1 
2498 : 
2500 data643,798,779,739,770,739,6 
85,643,571,571,1020,643,798, 770,73 
9,739,778,739,778 
2518 data770, 1028,643,798,770,739, 
770,739,685,643,571,571, 1028 
2528 data643,685,778,739,704,685,7 
04,739, -1 
2538 : 
2548 rem 
2558 : 
2568 scnclr:poke65298, 199:poke6529 
9,288:printchr$( 14)err$(er)"” error 
in "el:help:end 
2578 rem nachspann 
2588 rem 
lesen 
2598 p$=chr${ 151) :y$=chr$( 158) :b1$ 
=chr$( 31) :r$=chr$( 28) :cd$=chr$( 17) 
:cu$=chr$( 145) 
2688 c1$=chr$( 157) :ra$=chr$( 18) :re 
$=chr$( 146) :f1$=chr$( 138) :Fa$=chr$ 
( 132) :cy$=chr$( 159) 
2618 c1$=c1$+c1$+c1$+c1$:c2$=chr$( 
127) :c3$=chr$( 169) 
2620 v$="abedefghi jklmnopgqrstuvwxy 
gu 
2638 
2648 
2658 
2668 
2678 
2688 
2698 
2708 
2718 
2728 
2738 
2748 


"songs” 


fehlerroutine 


verschiedene zeichen ein 


return 

d$=chr$( 32) :b2$=d$+d$ 
b3$=b2$+d$:b4$=b3$+d$ 
b5$=b4$+d$:d$=b5$+b5$: return 
rem 
rem 
rem 
rem 
rem 
rem 
rem 
rem 


12277 
88141 
88381 
a8328 
08568 
82048 
028891 


memory 
program 
variables 
arrays 
strings 
zeichensatz 
free (®) 


<gg?> 


<mä> 
<am> 
<1lh> 
<de> 


<cd> 
<1lb> 
<hb> 


<ja> 


<jm> 


<dm> 
<mb> 


<kc> 
<nc> 


<cc> 
<bb> 
<dce> 
<dj> 


<da> 
<oe> 


<lp> 


<1lp> 


<dg> 
<la> 


<an> 
<co> 
<ge> 
<1k> 
<cd> 
<bi> 
<dc> 
<le> 
<ff> 
<ih> 
<hl> 
<lo> 
<og> 


TIPS & TRICKS 


2758 rem =====--=-=-==2=2 === ========== <ml> 


Hanging 
Joe | 


Fortsetzung von Seite 39 


Als erstes werden Sie gefragt, mit wie vielen Teilneh- 
mern Sie spielen wollen. Danach müssen Sie die Na- 
men der Mitspieler eingeben. Drücken Sie nach jeder 
Eingabe Return. Nun werden die Angeklagten vor- 
gestellt. Nach der Titelmelodie kommen Sie zum Aus- 
wahlmodus. Sie haben zwei Möglichkeiten: Entweder 
gibt der Computer ein Wort aus seinem Wortschatz 
vor, oder ein Spieler übernimmt diese Aufgabe. 

Jetzt sind Sie im Rateteil. Auf der linken Seite des 
Bildschirms wird das Wort, in der Anzahl der Buchsta- 
ben, durch Striche dargestellt. Rechts dräut bereits 
der Galgen. Durch Druck auf die jeweiligen Tasten er- 
scheint der Buchstabe, falls richtig, im Lösungswort 


an der richtigen Stelle, im anderen Fall unter der Rub- 


rik Falsch. Nach jeder falschen Eingabe kommen 
Sie Ihrem qualvollen Ende ein Stück näher. Haben Sie 
sich dreimal geirrt, werden Sie auf die bereitgestellte 
Kiste gehoben, die dann Stück für Stück unter Ihren 
Füßen weggezogen wird. Sollten Sie es dann auch 
noch wagen, zum sechsten Mal zu pfuschen, — ja — 
ja dann verlieren Sie im wahrsten Sinne des Wortes 
den Boden unter den Füßen. Das traurige Lied „My 
Bonny Is Over The Ocean“ hören Sie bereits nicht 
mehr. Haben Sie aber das richtige Wort erraten, er- 
klingt die fröhliche Weise „Hängt ihn auf, den... 
Lorbeerkranz‘. Anschließend werden Sie auch noch 
in die Highscore-Liste aufgenommen. Nun kann der 
nächste Spieler den mühsamen Gang zum Galgen 
(oder zur Siegerehrung) antreten. Drücken Sie bei der 
entsprechenden Frage einfach Return. Wenn die Rei- 
henfolge der Spieler geändert werden soll, so geben 
Sie den richtigen Namen ein. Bei der Eingabe Ende 
(nicht Michael) wird das Spiel beendet. 


Programmhinweise: 

Numerieren Sie das Programm durch RENUMBER 
nicht um, da erstens der Zeichensatz des Computers, 
durch einen sogenannten ‚simulierten Direktmodus“, 
in den BASIC-Speicher verschoben wird, und zwei- 
tens innerhalb des Programmablaufs auf den ‚‚Wort- 
schatz‘, durch eine Zufallszahl, zurückgegriffen wird. 


Dieses Programm verwendet einen eigenen Zeichensatz, 


der in Zeile 2060 vor dem Überschreiben geschützt 
wird. Wundern Sie sich also nicht, daß Sie auf Ihrem 
P4 oder Ihrem erweiterten C16 nur noch 2025 Byte 
frei(0) haben. Betätigen Sie deshalb die Reset-Taste, 
wenn Sie ein anderes Programm einladen wollen. Na- 
türlich haben Sie Hanging Joe vorher abgespeichert. 
Alsdann: Hals- und Beinbruch! 


Wolfsoft- 


Gut gelungen ist diese Adreßdatei, deren Handling 
durch die klare Gestaltung des Auswahlmenüs sich 
als sehr anwenderfreundlich erweist. 


Folgende Möglichkeiten lassen sich mit dem Programm 

Wolfsoft-Datei verwirklichen: 

© Eingabe von 200 Datensätzen, bestehend aus Name, 
Anschrift, Telefonnummer und Geburtsdatum, 

© Abspeichern und Laden als sequentielle Datei, 

© Formatieren durch Auswahl von vier vorgegebenen 
Ausgabeformaten für Bildschirm und Drucker, 

© Ausgabe auf dem Bildschirm, 

© Ausdrucken mit automatischem Seitenvorschub 
und Seitenzählung, 

© Änderung von eingegebenen Daten, block- oder 
zeilenweise. 

© Suchen und Ausdruck auf dem Bildschirm nach 
Einzelsuchbegriff oder nach zwei Begriffen, 
kumulativ oder alternativ, und 

oO Sortieren alphabetisch nach Hauptnamen und 
numerisch nach Geburtsdaten in der Rangfolge 
Monat--Tag. 


a 
\ 
\ 
4 
1 
4 
4 
& 


Die Anzahl der zu verwaltenden Datensätze läßt sich 
durch Ändern der Zahl 200 in den Programmzeilen 
260, 270, 1060 und 1220 jederzeit auf der Basis des 
noch verfügbaren Speicherraumes den eigenen Wün- 
schen anpassen. 


Zur Handhabung und Bedienung des Programmes: 
Dem Programmablauf ist jederzeit zu entnehmen, in 
welchem Unterprogramm zur jeweiligen Zeit gearbei- 
tet wird. Darüber hinaus werden ständig durch eine 
ganze Reihe von Bedienhinweisen und Informationen 
die erforderlichen Handgriffe eindeutig angewiesen. 
Die Druckerroutine wurde für den Commodore MPS 
801 geschrieben und ist auch für kompatible Drucker 
verwendbar. 
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wOLFSOFT-DATEI 


iB rem wolfsoft-datei===========p4 
28 rem (p) commodore welt team 

3p: Em Fraser 

48 rem (c) by wolf winkler 

58 rem 

68 rem basic v3.5 

78 rem plus4 (c16/116 + 64 kb) 

88 rem Floppy und cbm-drucker 

98 rem ==============2==2=2======2=== 
188 rem rahmen 

118 ren ee 
128 scncelr:clr:gosub3918:color®,7, 
3:color4,7,3:color1,2,7:printchr$( 
14) 

138 printhe$rn$zB$; :x$=z1$:gosub38 
98:printrf$za$ 

148 printrn$zB$rf$d$; :x$=z3$:m=17: 
gosub3888:printd$" "zB$ 

158 printrn$za$rf$"” Wolfsoft "rn$" 
DATEIVERWALTUNG "rf$" C=16(64k) " 
z8$ 

168 printrn$zB$rf$d$d$d$dA$d4$zB$ 
178 printrn$zA$rf$; :x$=zm$:gosub38 
98:printzB$ 

188 fori=5to2®:printrn$zB$rf$tabl 3 
9)z8$:next 

198 printrn$zU$rf$; :x$=ze$:gosub38 
98:printza$ 

280 printrn$za$rf$tab( 39) z8$:print 
rn$zBö$rf$tab( 39) z0$ 

218 printrn$zB$rf$;:x$=21$:gosub38 
98:printhe$:poke4971,97 

228 char1,2,23,"Initialisierung !" 

+d2$+"Bitte warten !"+d3$+he$ 

230 TEN >= m 
248 rem initialisierung 

258 rem --------=--------------- 
268 dimna$( 298) ‚vn$( 208) ‚ss$( 280), 
hn$( 208) ‚p1$( 208) 

278 dimot$( 290) ,vw$( 280) ,t1$(200), 


gb$( 208) 

288 i1$="Moment bitte ..!"+d$+d$+h 
e$ 

298 i2$="bitte waehlen !"+d$+d4 
$+d4$+he$ 


388 i3$="bitte eingeben !"+d$+d$+h 
e$ 

318 i4$=d$+d$+d$+d6$+he$ 

328 i5$="Datensatz o.k. (J/N) ?"+d 
$+d4$+he$ 

338 i6$=rn$+"E"+rf$+"ingabe"+d2$+" 
oder"+d2$+rn$+"H"+rf$+"auptmenue"”+ 
d2$+"7"+d4$+d4$+he$ 

348 i7$=rn$+"A"+rf$+"usgabe"+d2$+" 
oder"+d2$+rn$+"H"+rf$+"auptmenue"”+ 
d2$+"7"+d4$+d4$+he$ 

358 i8$=c1$+"Datendiskette eingele 
gt ? "+d$ 


<de> 
<ho> 
<ng> 
<ab> 
<pd> 
<od> 
<cd> 
<gj?> 
<jg?> 
<gc> 
<cn> 
<cm> 
<cl> 
<eo> 
<ah> 
<hb> 
<ci> 
<cd> 
<ca> 
<go> 
<nm> 
<io> 
<bc> 
<oi> 
<jg> 
<en> 
<al> 
<el> 
<ja> 


<ml> 
<of> 


<1k> 


<li> 


368 i9$="Druecke "+rn$+"D"+rf$+d2$ 

+"oder"+d2$+rn$+"H"+rf$+"auptmenue 
!"+d4$+d3$+he$ 

378 h1$=c1$+"Personal Datei ist vo 

11 11"+d$ 

388 h2$=c1$+"Keine weiteren Daten 
!"+d$+d4$ 

398 h3$="Taste druecken !"+d$+d$+h 

e$ 

488 hA4$=c1$+"Keine Formatangabe !" 

+d$+d6$ 

418 h5$=c1$+"Nichts gefunden !"+d$ 

+d5$+d4$ 

428 h6$="Druecke "+rn$+"J"+rf$+d2$ 

+"oder"+d2$+rn$+"H"+rf$+"auptmenue 
"+d4$+d4$+he$ 

438 h7$=c1$+"Drucker betriebsberei 
t 7"+d$+d2$ 

448 h8B$=rn$+"w"+rf$+t"eiter "+rn$+"” 
1"+rf$+"oeschen " 

458 h8$=h8$+rn$+"a"+rf$+"endern "+ 

rn$+"H"+rf$+"auptmenue !"+he$ 

468 h9$="Bestimme Zeile mit Cursor 
und Return"+he$ 

a7a x1$=", ":x2$=" ":x3$=d2$:xA4$=" 
Tel: ":z5$=" / ":z6$="geb: " 

488 se$=chr$( 14) :dp$=chr$( 16) 

498 x$=zv$:gosub39B8 

saB 14$=d$+d$+d2$ 

518 15$="Mach ’ne Pause, es wird s 

ortiert !"+d2$+he$ 

528 p1$=he$+left$(gr$, 11) :p2$=he$+ 

cA$+left$(gqr$, 11) :p3$=he$+cA4$+c4$+ 

cA$+left$(qr$, 11) 

538 p4$=he$+left$(gd$,4) +left$lqr$ 
‚11):pS5$=he$+left$(gd$,6) 

548 pA$=p4$+left$(gr$, 11) :p6$=he$+ 
left$(qd$,7)+left$(gqr$, 11) 

558 p7$=he$+tleft$(gd$,9) +left$(lqr$ 
‚11):p8$=he$+tleft$(gd$, 180) +left$(gq 

r$,11) 

568 p9$=he$+left$(gd$, 12) +left$lqr 

$,11) 

578 goto648 

588 rem -------------------------- 

598 rem hauptmenue 

688 rem ---------------------- -- -- 

618 printhe$left$(gd$,5)c3$c3$chr$ 

(27)"t" 

628 printleft$(qr$,35)1left$(gd$, 14 

)chr$( 27)"b":return 

638 printd2$z9$d$d$d$z4$:return 

648 char1,12,2,rn$+"DATEIVERWALTUN 

G"+rf$:char1,2,23,i14$:color1,3,7:g 

osub61® 

658 printc1$c4$d2$z9$; :x$=zm$:m=30 
:gosub3888:printz4$ 

668 printd2$z9$d2$; :x$=23$:m=12:go 
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sub388@:printd$d6$z4$ 

679 printd2$z9$d2$rn$" HAUPTMENUF 
"rf$d2$rn$"5"rf$;c2$c1$z3$c4$" Aen 
dern"d5$z4$:gosub638 

688 printd2$z9$d2$rn$"1"rf$c2$c1$z 
3$c4$" Eingabe”"d5$rn$"6"rf$; 

698 printc2$ce1$z3$c4$" Sortieren”d 
3$z4$:gosub638 

708 printd2$z9$d2$rn$"2"rf$c2$c1$z 

3$c4$" Ausgabe"d5$rn$"7"rf$; 

718 printc2$c1$z23$cA$” Formatieren 
"74$:gosub638 

728 printd2$z9$d2$rn$"3"rf$;c2$c1$ 
z3$c4$" Laden"dA$d3$rn$"B"rf$; 

738 printc2$c1$z3$c4$" Drucken"”d5$ 
zA$:gosub638 

748 printd2$z9$d2$rn$"4"rf$c2$c1$z 

3$c4$" Speichern"d3$rn$"9"rf$; 

758 printc2$c1$z3$c4$" Suchen”d6$z 

4$:g0sub638 

768 printd2$z9$; :x$=ze$:m=38:gosub 

3888:printz4$he$ 

778 char1,2,23,i12$:color1,2,7 

788 getkeyt$:ift$="1"then1928 

798 ift$="2"then1888 

808 ift$="3"then1358 

818 ift$="4"then 1498 

828 ift$="5"then2528 

830 ift$="6"then3428 

848 ift$="7"then 1638 

858 ift$="8"then2878 

868 ift$="9"then2969:else788 

878 rem 

888 rem 

698 rem 

988 na$( 1)=na$:vn$( 1) =vn$:ss$(1)=s 

s$:hn$( 1) =hn$:p1$C1)=pl$:0t$[l1)=ot 


eingabe 


$ 

918 vw$l1)=vww$:t1$l1)=t1$:gb$l1)=g 
b$:return 

928 es$="":print">";:fori=titoln:pr 
int" ";:next:print"<";:fori=1toln+t 
1 
938 
948 
958 


printchr$( 157) ; :next 
getkeya$:ac=asc( a$) 
ifac=13then1818 

968 ifac=2Bandlen(es$) =Bthen94B 
978 ifac=2ßthenprintchr$( 157);" "; 
chr$( 157) ; :es$=left$(es$,len(es$) - 
1) :goto948 j 

988 ifac<320orac=34orac=44orac=5ßor 
ac=1450rac=1470rac=157then948 

998 iflen(es$) <Inthenprinta$; :es$= 
es$+ta$ 

1888 goto94B 

1818 print:return 

1828 char1,12,2,rn$+d4$+"Eingabe"”+ 
d4$+rf$:s=B:gf=B8:do:s=s+1 


19838 
1848 


ifs>nrthenexit 

ifna$( s) ="*#**"thengf=gf+1 
1858 loop 

1868 char1,2,23,13$:gosub61®:print 
c1$"Freie Datensaetze: "288-(nr-gf) 
1878 printc4$"Name"d3$":";:1n=20:g 
osub92@:na$=es$ 

1888 print"Vorname:";:1n=28:gosub9 
28:vn$=es$ 

1898 printc4$"Strasse:";:In=28:gos 
ub928:ss$=es$ 

1188 print"Haus-Nr:";:1n=5:gosub92 
@:hn$=es$ 

1118 printc4$"P L Z"d2$"”:";:1n=4:g 
osub929:p1$=es$ 

1128 print"Wohnort:";:1n=28:gosub9 
28:0t$=es$ 

1138 printc4$"”Vorwahl:";:In=5:gosu 
b928:vw$=es$ 

1148 print"Tel-Nr.:";:1n=12:gosub9 
28:t1$=es$ 

1158 printc4$"Geb.Dat:"; :1n=1@:gos 
ub928:gb$=es$ - . 
1168 char1,2,23,15$ 

1178 getkeya$:ifa$="j"then1208 
1188 ifa$="n"then 169 

1198 ifa$="h"then64R:elsegoto1178 
1288 char1,2,23,i11$:gosub61@:print 
c1$ 
1218 s=8:fl=8:fe=®8 

1228 do:s=s+1:ifs>28@thenexit 

1230 ifna$( s)=""andvn$( s)=""thenfe 
=1:exit 

1248 ifna$( s)="***"thenfl=1:gf=gf- 
i:exit 

1258 loop 

1268 iffe=Bandfl=Bthenprinthi$:cha 
r1,2,23,h3$:getkeyt$:got0648 

1278 iffe=ithennr=nr+1:1=nr:gosub9 
08:g0t01290 


1288 iffl=1thenl=s:gosubIBR 

1298 char1,2,23,i6$ 

1300 getkeyt$:ift$="e"then1d6® 
1318 ift$="h"then648:else 1388 

1328 rem --—------ mm 
1330 rem laden 

1348 rem ------------- 777777770 
1358 char1,12,2,rn$+d5$+"Laden"+d5 
$+rrf$ a 


1368 char1,2,23,i4$:gosub61®@:print 
i8$:char1,2,23,i9$ 

1378 getkeyt$:ift$="h"then648 

1388 ift$="d"then139B:else1378 
1398 char1,2,23,11$ 

1488 open?,8,7,"personal datei,s,r 
":input#7,nr$:nr=val(nr$) 

1418 fori=itonr 

1428 input#7,na$(i):input#7,vn$(i) 


woLFSOFT-DATEI 


:input#7,ss$(i) 

1438 input#7,hn$(i) :input#7,p1$(i) 
:input#7,ot$(i) 

1449 input#7,vw$(i) :input#7,t1$(i) 
:input#7,gb$(i) 

1458 next:close?7?:goto649 

186: Tun ee 
1478 rem speichern 

1480: ven >- mens 
1498 char1,12,2,rn$+d3$+"Speichern 
"+d3$+rf$ 

1508 char1,2,23,i14$:gosub61@:print 
i8$:char1,2,23,i19$ 

1518 getkeyt$:ift$="h"then648 

1528 ift$="d"then1538:else1518 
1538 char1,2,23,11$ 

1548 open?,8,7,"@:personal datei,s 
‚w":nr$=str$(nr) :print#7,nr$ 

1558 fori=itonr 

1568 print#7,na$(i):print#7,vn$(i) 
:print#7,ss$(i) 

1578 print#7,hn$(i) :print#7,p1$(i) 
:printf#7,ot$(i) 

1580 print#7,vw$(i):print#7,t1$(i) 
:print#7,gb$li) 

1598 next:close7:goto648 

1500 ram, FF 
1618 rem formatieren 

1628 rem ------------ 
1638 char1,12,2,rn$+d2$+"Formatier 
en"+d2$+rf$ 

1648 char1,2,23,14$:gosub618:print 
c1$c4$d2$"Folgende Formate fuer Au 
sgabe und” 

1658 printd$" "22$z22$z22$z22$22$22$%z 
2$d6$z2$" "z2$" "z2$" "z2$ 

1668 printd2$”Drucken sind waehlba 
r:":printd2$z2$" "z2$" "z2$" "z2$ 
1678 printc4$d4$rn$"i"rf$;c2$c1$z3 
$c4$" Gesamtausgabe (wie Eingabe)" 
1688 printc4$d4$rn$"2"rf$;c2$c1$z3 
$c4$"” Name, Vorname" 

1698 printd6$"Strasse Hausnummer": 
printd6$"PLZ Wohnort" 

1788 printc4$d4a$rn$"3"rf$;c2$c1$z3 
$c4$" Name, Vorname, Telefonnummer 


1718 printc4$d4$rn$"4"rf$;c2$c1$z3 
$c4$" Geburtsdatum, Vorname Name” 
17208 char1,2,23,i2$ 

1738 getkeyt$:ift$="1"thenfo=1:got 
0648 2 

1748 ift$="2"thenfo=2:g0t0648 

1758 ift$="3"thenfo=3:goto640 

1768 ift$="4"thenfo=4:g0t064® 

1778 goto1738 

1788 ren) + ern nn 
1798 rem ausgabe 


<ja> 
<fa> 


<cen> 
<bo> 
<ce> 
<pl> 
<ho> 


<lin> 
<ee> 
<cg> 
<nb> 


<1h> 


<jd> 
<mb> 


<am?> 
<da> 
<kf> 
<oh> 
<kb> 
<mb> 


<kh> 


<hn> 


<md> 
<ej? 
<bn> 
<gd> 
<od> 


<gh> 


<dk> 


<ec> 
<jp> 


<md> 
<bi> 
<ne> 
<fc> 
<jl> 
<le> 
<oe> 


TBBR rem => 
1818 printcl$+na$( s)+x1$+vn$(s):pr 
intce4$+ss$( s) +x2$+hn$( s) 

1828 printc4$+p1$( s) +x2$+ot$(s) :pr 
intc4$c4$+x4$+vw$( s) +z5$+t1$(s) 
1838 printc4$+z6$+gb$( s) :return 
1848 printc4$c4$+na$( s)+x1$+vn$(s) 
+c4$:printss$( s) +x2$+hn$( s) +c4$ 
1858 printpl$(s)+x2$+ot$(s)+c4$:re 
turn 

1868 printna$( s) +x1$+vn$( s)+c4$:pr 
intx4$+vw$( s) +z5$+t1$( s) +cA$cA$:re 
turn 

1878 printgb$( s) +x3$+vn$( s)+x2$+na 
$(s) +c4$c4$:return 

1880 char1,12,2,rn$+d4$+"Ausgabe"+ 
d4$+rf$ 

1898 gosub61®:printcl$:char1,2,23, 
ia$ 

1988 iffo=dthengosub61ß:printh4$:c 
har1,2,23,h3$:getkeyt$:goto163 
1918 char1,2,23,i17$:gosub618:print 
c1$ 

1928 s=B:fl=®:do:s=sti 

1938 ifs>nrthenexit 

1948 ifna$( s)="***"then2018 

1958 iffo=ithengosub1819:g0t01998 
1968 iffo=2thengosub 1848:g0t01998 
1978 iffo=3thengosub 1868:g0t01998 
1988 iffo=4thengosub 1878 

1998 getkeyt$:ift$="h"thenfl=2:exi 
t 

2888 ift$="a"then2B1B:else1998 
2818 loop 

2828 iffl=2then648 

20838 printh2$:char1,2,23,h3$:getke 
yt$:g0t0648 

2048: ron === nenne 
2858 rem drucken 

2B68 ren em 
2878 char1,12,2,rn$+d4$+"Drucken"+ 
d4$+rf$ 

2088 iffo=®thengosub6iß:printh4$:c 
har1,2,23,h3$:getkeyt$:g0t01638@ 
2898 char1,2,23,14$:gosub61® 

2188 printcl$c4$" Haben Sie das ri 
chtige Format fuer” 

2118 printc4$" Ihre Druckausgabe g 
ewaehlt und die” 

2128 printc4$" Daten dementspreche 
nd sortiert ?*":printc4$c4$d3$23$z3 
$2z3$23$23$z23$z3$zZ3$ 

2138 printd3$rn$"WICHTIG:"rf$:prin 
tc4$d3$"Druckerkanal ist Nummer # 
a”d2$"”t" 

2148 printc4$d3$"Papier richtig po 
sitioniert"d2$"?" 

2158 char1,2,23,h6$ 


<hn> 


<bb> 


<ii> 
<ci> 
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2168 getkeyt$:ift$="h"then648 
217a ift$="j"then2188:else2168 
2188 gosub618:printh?$:char1,2,23, 
i9$ 

2198 getkeyt$:ift$="d"then2218 
2288 ift$="h"then648:else2198 
2218 open4,4,7:cmd4 


2228 iffo=1thenl11$=12$:printf#4,,x3- 


$+se$"GESAMTDATEI" :goto226B 

2238 iffo=2thenl1$=left$( 12$,48) :p 
rintf4, ,x3$+se$"ANSCHRIFTEN” :goto2 
268 

2248 iffo=3thenl11$=12$:print#4,,x3 
$+se$" TELEFONVERZEICHNIS" :got 02268 
2258 iffo=4thenl1$=1left$(12$,48) :p 
rint#4, ,x3$+se$"GEBURTSTAGE" 

2268 a=3:b=1:printf#4,chr$( 15) ;:pri 
nt#4,dp$"68Seite 1" 

2278 print#4,,11$ 

2280 s=®:do:s=s+t1 

2298 ifs>nrthenexit 

2388 ifna$( s) ="***"then2398 

2318 ifa>=58then2328:else2348 

2328 fori=1t07:print#4,chr$( 18) :ne 
xt:b=b+1:a=3 

233@ print#4,dp$"68Seite"b:print#4 
‚,11$ 

2348 iffo=1thena=at4:g0t0246® 

2358 iffo=2thena=a+t4:got02448 

2368 iffo=3thena=at2:g0t0o2438 

2378 iffo=Athena=at2:g0t02428 

23880 printf#4,,11$ 

2398 loop 

2488 print#4:close4 

2418 gosub61@:printh2$:char1,2,23, 
h3$:getkeyt$:goto648 

2428 print#4,dp$"12"+gb$( s) +dp$”25 
"+un$( s) +x2$+na$( s) :goto2388B 

2438 print#4,dp$"12"+na$(s) +x1$+vn 
$Cs) +dp$"45"+vw$(ls) +z5$+t1$(s) :got 
02388 

2448 print#4,dp$"12"+na$(s)+x1$+tvn 
$(s) :print#4,dp$"12"+ss$( s) +x2$+hn 
$(s) 

2458 print#4,dp$"12"+pl1$(s) +x2$+ot 
$(s) :goto2388 

2468 print#4,dp$"”12"+na$( s) +x1$+vn 
$(s) +dp$"42"+x4$+uw$(s) +z5$+t1$(s) 
2478 printf#4,dp$"12"+ss$( s) +x2$+hn 
$ls)+dp$"a2"+z6$+gb$ls) 

2488 print#4,dp$"”12"+pl$(s)+x2$+ot 
$(s) :goto2388 

2298 rem Fan 
25089 rem aendern 

2510 a Fe 
2528 char1,12,2,rn$+d4$+"Aendern"+ 
d4$+rf$ 

2538 fo=1:fl=8:s=8:gosub61@:printc 


<bb> 
<ej? 


<en> 
<on> 
<fi> 
enc> 


<kd> 


<ej?> 
<aj? 
<df> 


<km> 
<kh> 
<1p> 
<id> 
<ie> 
<jd> 
<go> 
<gg> 
<kn> 
<fl> 
<gf> 
<fo> 
<oo> 
<kk> 
<jm> 


<1lb> 


<jb> 


<ii> 


<cp> 
<ia> 
<cp> 
<ii> 
<hh> 
<nf> 
<am> 


<kj> 


<ho> 


1$:char1,2,23,h8$:gosub61® 

2548 do:s=s+1 

2558 ifs>nrthenexit 

2568 ifna$( s) ="***"then2628 

2578 gosub181B 

2588 getkeyt$:ift$="h"thenfl=1:exi 
t 

2598 ift$="w"then2628 

2688 ift$="1"thenna$( s) ="***":goto 
2628 

2618 ift$="a"then2659:else2588 
2628 loop 

2638 iffl=1thenchar1,2,23,14$:goto 
640 

2648 printh2$:char1,2,23,h3$:getke 
yt$:goto648 

2658 char1,2,23,h9$:gosub61@ 

2668 printc1$"> Name”d3$":"d2$na$l 
s) :printd2$"Vorname: "d2$vn$( s) 
2678 printc4$d2$"Strasse:"d2$ss$( s 
) :printd2$"Haus-Nr:"d2$hn$( s) 

2688 printc4$d2$"P L Z"d2$":"d2$pl 
$(s) :printd2$"Wohnort:"d2$ot$( s) 
2698 printc4$d2$”Vorwahl:"d2$vw$( s 
) :printd2$"Tel-Nr.:"d2$t1$(s) 

2788 printc4$d2$"Geb.Dat:"d2$gb$( s 
) :printc4$d2$"alle Daten o.k. ?":p 
=] 

2718 getkeyt$:ift$=c4$then2730 
2728 ift$=chr$( 13) then2838:else271 
2 

2738 ifp=1thenpoke3274,32:poke3314 
‚62:p=2:g0t02718 

2748 ifp=2thenpoke3314,32:poke3394 
‚62:p=3:g0t02718 

2758 ifp=3thenpoke3394 ,32:poke3434 
‚62:p=4:g0t02718 

2768 ifp=4thenpoke3434,32:poke3514 
‚62:p=5:g0t02718 

2778 ifp=5thenpoke3514,32:poke3554 
‚62:p=6:g0t02718 

2788 ifp=6thenpoke3554, 32:poke3634 
‚62:p=7:g0t02718 

2798 ifp=7thenpoke3634,32:poke3674 
‚62:p=8:g0t02718 

2808 ifp=8thenpoke3674,32:poke3754 
‚62:p=9:goto2718 

2818 ifp=9thenpoke3754,32:poke3834 
‚62:p=18:g0t02710 

2828 ifp=1ßthenpoke3834, 32:poke327 
4,62:p=1:g0t02718 

2838 ifp=1thenprintp1$+14$:printpi 
$; :1In=2®:gosub928:na$( s)=es$:goto2 
738 

2848 ifp=2thenprintp2$+14$:printp2 
$;:1n=20:gosub928:vn$( s)=es$:goto2 
748 

2858 ifp=3thenprintp3$+14$:printp3 
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$; :1In=28:gosub928:ss$[ s)=es$:goto2 
758 

2868 ifp=4thenprintp4$+14$:printp4 
$; :1n=5:gosub928:hn$( s) =es$:goto27 
68 

2878 ifp=5thenprintp5$+14$:printpS 
$;:1In=4:gosub928:p1$[ s) =es$:g0t027 
78 

2888 ifp=6thenprintp6$+14$:printp6 
$; :1n=28:gosub928:ot$( s)=es$:goto2 
788 
2898 ifp=7thenprintp?7$+14$:printp? 
$; :1n=5:gosub928: vw$( s) =es$:goto27 
98 

2988 ifp=Bthenprintp8$+14$:printp8 
$; :1n=12:gosub92@:t1$( s)=es$:goto2 
808 

2918 ifp=9thenprintp9$+14$:printp9 
$;:1n=1@8:gosub928:gb$( s) =es$:goto2 
818 

2928 ifp=1ßthens=s-1:char1,2,23,h8 
$:gosub618:g0t02628 

2936: Dem nn 
2948 rem suchen 

2950, ran Se ar 
2968 char1,12,2,rn$+d5$+"Suchen”"+d 
4$+rf$ 

2978 char1,2,23,i14$:gosub61ß:print 
c1$c4$" Suchmodus wie folgt bestim 
men:" 

2988 printc4$c4$d3$rn$"1"rf$;c2$c1 
$z3$c4$" Einzelsuchbegriff" 

2998 printcA$d3$rn$"2"rf$;c2$c1$z3 
$c4$" zwei Begriffe kumulativ" 
38088 printc4$d3$rn$"3"rf$;c2$c1$z3 
$c4$" zwei Begriffe alternativ" 
3018 printc4$d3$rn$"A"rf$;c2$c1$z3 
$c4$" Gesamtausgabe":char1,2,23,12 
$ 

3028 getkeyt$:ift$="1"thensm=1:got 
03868 

3038 ift$="2"thensm=2:g0t03078 
3848 ift$="3"thensm=3:g0t03078 
3058 ift$="4"thenfo=1:g0ot0188@:els 
e3028 

3068 gosub618:printc1$c4$"Suchbegr 
iff: ";:1n=28:gosub928:su$=es$:got 
03118 

3078 gosub618:printcl$c4$"1.Begrif 
f: ";:1n=20:g0sub920:b1$=es$ 

3888 printc4$”2.Begriff: ";:1n=2®: 
gosub928:b2$=es$ 

30898 ifsm=2thenprintc1$b1$" und "b 
2$:g0t03128 

3188 ifsm=3thenprintcl$b1$” oder " 
b2$:g0t03128 

3118 printel$"Suchbegriff: "su$ 
3128 x$=z3$:m=35:gosub3B9B:printx$ 


<li> 


<ck> 


<jm> 


<ci> 


<kn> 


<bb> 


3130 s=®:ef=@:fl=98:char1,2,23,11$: 
gosub3358 

3148 do:s=s+1 \ 

3158 ifs>nrthenfl=1:exit 

3168 ifna$( s) ="***"then3308 

3178 ifsm=2orsm=3then3288 

3188 k=8:g0sub3379:k=instr(pr$,su$ 
) :ifkthenef=ef+1:gosub1818:g0t0326 
12) 

3198 goto3388 

3208 k1=8:k2=®:gosub3378:kKi=instr( 
pr$,b1$) :k2=instr(pr$,b2$) 

3218 ifsm=3thenif(klork2)thenef=ef 
+1:gosub 1819: g0t03268 

3228 ifsm=3andk 1=B8andk2=®then3388 
3238 ifsm=?2thenif(k1>Bandk2>B) then 
ef=ef+1:gosub1819:g0t03260 

3248 ifsm=2and( ki=Bork2=8) then33Q8 
3258 got0o3398 

3268 char1,2,23,17$ 

3278 getkeyt$:ift$="h"thenfl=2:exi 
t 

3288 ift$="a"thenchar1,2,23,i11$:go 
sub3358:printc1$:g0ot0o3388 

3298 g0t03278 

3388 loop 

3318 iffl=2then649 

3328 iffl=1andef>®thenprinth2$:got 
03348 

3338 iffl=1andef=®thenprinth5$ 
3348 char1,2,23,h3$:getkeyt$:goto6 
48 

3358 printhe$left$(qd$,8)c3$c3$chr 
$27)"t" 

3368 printleft$(gr$,35)left$lgd$, 1 
1)chr$(27)”"b":return 

3370 pr$=na$( s) +un$( s) +ss$( s) +hn$( 
s) +p1$(s) +tot$( s) +vw$(s)+t1$(s) +gb$ 
(s) 

3388 return 

3398 rem Sean 
3488 rem sortieren 

328 ren ee nn 
3428 char1,12,2,rn$+d3$+"Sortieren 
"+d3$+rf$ 

3438 gosub61®:printc1$c4$c4$d2$"Fo 
lgende Sortiermoeglichkeiten" 

3448 printc4$d2$"stehen zur Verfue 
gung:" 

3458 printc4$c4$d4$rn$"1"rf$;c2$c1 
$z3$c4$" alphabetisch nach Namen” 
3468 printc4$c4$dA$rn$"2"rf$;c2$c1 
$z3$c4$" numerisch nach Geburtstag 
3478 printc4$d6$”( nach Monat und 
Tag )":char1,2,23,i12$ 

3488 getkeyt$:ift$="1"then358®@ 
3498 ift$="2"then3688:else3488 


<bd> 
<ma> 
<ik> 
<pl> 
<mp> 


<om> 
<np> 
<op?> 


<hg> 
<fj> 
<cd> 
<ja> 
<fh> 
<aa> 
<po> 
<pp> 
<ge> 
<mn?> 


<ko> 


<cn> 
<ao> 


<aj> 
<hm> 
<bo> 
<gi> 
<ba> 
<ig> 
<bi> 
<kl> 
<fb> 
<bc> 
<pl> 


<ml> 


WOLFSOFT-DATEI a = 


3508 gosub61ß:printcl$:char1,2,23, 3830 vw$ly)=xg$:t1$ly)=xh$:gb$ly) = 

15$ <op> xi$ <ph> 
3518 forx=2tonr <dg> 3840 goto3868 <jb> 
3520 ifna$( x)>=na$( x-1)then366® <nh> 3850 nexty <mc> 
353@ xa$=na$( x) :xb$=vn$(x) :xc$=ss$ 3868 nextx <oj> 
(x) <hm> 3878 char1,2,23,i14$:goto64® <ei> 
3548 xd$=hn$lx):xe$=pl$lx):xfh=ot$ 3888 forj=1tom:printx$; :next:retur 

(x) <al> n <nn> 
3558 xg$=vw$lx) :xh$=t1$Cx) :xi$=gb$ 3898 forj=1t038:printx$; :next:retu 

(x) <ck> rn <cg> 
3568 fory=x-1Itolstep-1 <fc> 3988 12$=x$:forj=1t059:12$=12$+x$: 

3578 na$l y+1)=na$ly) :vn$ly+1)=vn$( ö next:return <il> 
y) :ss$(y+1)=ss$(y) <nh> 3918 d$=chr$( 32) :d2$=d$+d$ <ed> 
3588 hn$(y+1)=hn$ly)::pl$ly+1)=p1$l 3928 d3$=d2$+d$:d4$=d3$+d$ <ho> 
y) :ot$( y+1)=ot$(y) <de> 3938 d5$=d4$+d$:d6$=d5$+d$ <ko> 
3598 vw$l y+1)=vw$ly) :ti$Cy+1)=t1i$l 3948 d$=d5$+d5$ <dg> 
y) :gb$(ly+1)=gb$(y) <jp> 3958 rem nachspann =============== <ja> 
3608 ifxa$<=na$( y-1)then3650 <1h> 3968 rem * farbcodes/steuercodes * <id> 
3618 na$l y)=xa$:vn$ly)=xb$:ss$ly)= 3978 cA$=chr$( 817) :rn$=chr$( 818) <oa> 
xc$ <ck> 3988 he$=chr$( 819) :c3$=chr$( 829) <ep> 
3628 hn$(y)=xd$:pl$(y)=xe$:ot$(y)= 3998 c2$=chr$( 145) :rf$=chr$( 146) <gm> 
xf$ <ka> 4888 c1$=chr$( 147) :c1$=chr${ 157) <ai> 
3630 vw$ly)=xg$:t1$ly)=xh$:gb$ly) = AB10 rem #** zeichensatz/graphik * <bg> 
xi$ <if> 4828 z8$=chr$( 161) :z21$=chr$( 162) <fa> 
3640 g0t0366® <fo> 4838 z2$=chr$( 163) :z3$=chr$( 164) <jl> 
3658 nexty <jn> 4848 z4$=chr$( 165) :z9$=chr$( 178) <ih> 
3668 nextx <me> 4858 ze$=chr$( 175) :zm$=chr$( 183) <am> 
3678 char1,2,23,14$:got0648 <jc> 4868 zu$=chr${ 192) <mo> 
3688 gosub61@:printcel$:char1,2,23, 4078 rem ######### zeichenfolgen * <ho> 
15$ <id> 4088 for q=1 to 48 <bf> 
3698 forx=2tonr <hb> 4898 qd$=qd$+c4$:qr$=qgr$+c3$ <gf> 
3708 gb=vallmid$(gb$(x) ,4,2))*108+ 41808 next q <kg> 
vallmid$(gb$(x),1,2)) <lm> 4118 return <mk> 
3718 ga=vallmid$( gb$( x-1),4,2))*18 4128 rem ========================= <gb> 
O+vallmid$(gb$(x-1),1,2)):ifgb>=ga 4138 rem 68671 bytes memory <bh> 
then3868 <ml> 4148 rem 14102 bytes program <hj> 
3728 xa$=na$l x) :xb$=vn$(x) :xc$=ss$ 4158 rem 00787 bytes variables <of> 
(x) <km 4160 rem 05498 bytes arrays <jh> 
373@ xd$=hn$l x) :xe$=pl$lx) :xf$=ot$ 4178 rem 81912 bytes strings <kc> 
(x) <hk> 4188 rem 38468 bytes free (®) <jl> 
3748 xg$=vw$(lx) :xh$=t1$lx) :xi$=gb$ 4198 rem (bei 2 datensaetzen) <op> 
(x) <ae> 4288 rem ========================= chj> 
3758 fory=x-1Itolstep-1 <ph> 

3768 na$( y+1)=na$(ly) :vn$(l y+1)=vn$( 

y):ss$(y+1)=ss$(y) <cj> EB 

3778 hn$ y+1)=hn$Cy) :p1$Cy+1)=pl$C Nutzen Sie 

y) :ot$( y+1)=ot$(y) <li> 

378@ vm$ly+1)=vw$Ly) stl$Cy+1)=t1$l unseren 

) :gb$ly+1)=gb$Ly) <jb> i 

3798 ee, xi$,4,2)}*100+val kostenlosen 
(mid$(xi$,1,2)) <cl> in = 

3800 gc=vallmid$(gb$ly-1),4,2))*10 Anzeigen-Service 
B+vallmid$( gb$ly-1) ,1,2)) :ifgd<=ge zu 

then3858 <fj> fur 

3818 na$l y)=xa$:vn$ly)=xb$:ss$(y)= - vie 

xc$ <ed> Privat-Anzeigen 
3828 hn$(y)=xd$:pl$(y)=xe$:ot$(y)= 

xf$ <cd> 
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LISTING 


Kuwait 


Bohren Sie in Kuwait nach Öl. Stellen Sie Bohr- 
trupps ein, verlegen Sie Pipelines, bauen Sie Tanklager 
für Ihr öl, verschiffen oder transportieren Sie es 
und spekulieren Sie an der Börse. 


Sie können dieses Spiel mit bis zu acht Personen spie- 
len. Wenn Sie dazu aufgefordert werden, so drücken 
Sie die entsprechenden Tasten, sonst läuft das Spiel 
alleine. Eine Übersicht vermittelt Ihnen alles Wissens- 
werte über Ihre Besitzverhältnisse. Die folgenden Bil- 
der fordern Sie zu Taten auf. 

Rohrtrupps einstellen: Besorgen Sie sich Arbeiter 
oder entlassen Sie welche. Bedenken Sie jedoch, daß 
Sie nur dann Öl fördern, wenn Sie über den entspre- 
chenden Leute verfügen. Ein Trupp gewinnt aus einer 
Quelle 1000 Liter Öl, Ihr Limit liegt bei 10000 Li- 
tern pro Quelle. 

Die Fördermenge errechnet sich aus der Anzahl der 
Bohrtrupps mal 1000, geteilt durch die Anzahl der 
Ölquellen. 

Pipelines bauen: Achten Sie darauf, daß Sie genau so 
viel Pipelines wie Ölquellen besitzen; sollten es weni- 
ger sein, so sind die Leitungen überlastet, und es wer- 
den Ihnen Quellen abgezogen. 

Tanklager bauen: Um Ihr Öl zu lagern, brauchen Sie 
Tanklager. Eines faßt 60000 Liter. Sollte die maxi- 
male Lagermenge überschritten werden, so ist der 
Überschuß für Sie verloren. 

Nach Öl bohren: Tun Sie das. Sollten Sie fündig ge- 
worden sein, so bekommen Sie eine Quelle gutge- 
schrieben. Nach diesem Bild wird die Fördermenge 
und das Ölin Ihren Tanklagern festgelegt. 
Schienennetz: Verlegen Sie Schienen, um Ihr Öl dar- 
auf zu transportieren. 

Börse: Sie dürfen Aktien kaufen und verkaufen. 

Öl verschiffen: Haben Sie mehr als 20000 Liter im 
Tank, können Sie Ihr Öl auf die Reise schicken. 
Schließen Sie für alle Fälle eine Versicherung ab. 
Preise und Gewinne orientieren sich an Frachtraten 
und den jeweiligen Bestimmungsorten. 

Öl transportieren: Wenn die erste Stadt ans Schienen- 
netz angeschlossen ist und 10000 Liter im Tank sind, 
kann’s per Bahn losgehen. Eine Versicherung ist nicht 
nötig, da Sie auf dem Landweg immer sicher ankom- 
men. 

Laufende Kosten: Sie werden zur Kasse gebeten. 

Pro Ölquelle dürfen Sie auch bis zu 5 Millionen Dol- 
lar Schulden machen. Die Rechnung wird zum Schluß 
der Runde präsentiert. Zuzüglich zehn Prozent Zin- 
sen, versteht sich. Versuchen Sie also, durch gute Ge- 
schäfte Ihr Minus zu reduzieren. 

Im letzten Bild können Sie das Spiel beenden oder an 
den nächsten Teilnehmer übergeben. 

Sieger ist natürlich, wer am Schluß das meiste Geld 
gescheffelt hat. Detlef Pitschmann 
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KUWAIT GGELFOERDERUNG 


rem kuwait====================p4 
rem (p) commodore welt team 

rem ====================2====5=- 
rem (c) by detlef pitschmann 

rem & ralf heidenreich 

rem 

rem basic v3.5 

rem p4 (c16/116 mit 64 kb) 


oo Prwn - 


18 wh$=chr$( 885) :ro$=chr$( 818) :re$ 
=chr$( 828) :gr$=chr$( 838) :b1$=chr$( 

831) :bk$=chr$( 144) 

11 rf$=chr$( 146) :pu$=chr$( 156) :ye$ 
=chr$( 158) :a$=chr$( 245) :b$=chr$( 86 
1) :c$=chr$( 858) 

12 d$=chr$( 843) :e$=-a$ta$+ta$+ta$ta$t 
a$+ta$ta$taß+taf+taß+taßtaßta$taftafta 

$ta$ftafta$ 

13 F$=b$+b$+b$+b$+b$+L$+b$+bF+b$+b 

$+b$+b$+H$+b$+h$+b$+b$+b$+b$+b$ 

14 g$=d$+d$+d$+d$+d$+d$rd$radgtdgtd 

$+d$+d$+dg+u4g+d$+ad$+d$+rd$tdgtd$:h$ 
=e$te$:i$=t$+rf$ 

15 j$=g$+tg$:k$=" taste = taste = 
taste = taste = taste ":fori=8to8: 

oe(i)=®:pi(i)=® 

16 t1(i)=:bt(i)=@:foli)=B:ot(i)=® 
:mx(i)=8:sh(i)=B:arli)=B:akli)=B:a 
h(i)=® 

17 ge(i)-758888:nexti:art=188:akt= 
189:aht=188:dimna$( 8) :cr$=chr$( 13) 
:g0t028 

18 scnclr:color8,2,6:color4,2,6 

19 printb1$j$er$tab( 12)wh$"k uwa 
i t"er$bl$j$:return 

28 spi=®:gosub18:print:print 

21 printwh$"” wieviele spieler <1-8 

> ";:inputspi:ifspi<=B®then28 

22 ifspi>8then2® 

23 fori=1tospi:print:printye$" nam 

e des";i;". spielers "; 

24 inputna$(i):nexti 

25 forx=1tospi:bd=int(rnd( 1) #19) +1 
:ifbd=1thengosub437:gosub4A3:gosub 

449 

26 ifbd=2thengosub455 

27 ifbd=3thengosub491 

28 ifbd=4thengosub5B2 

29 ifbd=5thengosub437:gosub443:gos 

ub449 " 

38 ifbd=6thengosub468 

31 ifbd=7thengosub486 

32 ifbd=8thengosub491 

33 ifbd=9thengosub495 

34 ifbd=18thengosub528 

35 ifbd=11thengosub437:gosub443:go 
sub449 

36 ifbd=12thengosub479 


<ic> 
<1m> 
<cd> 
<oi> 
<gc> 
<jl> 
<ni> 
<mf> 
<nd> 


<dc> 


<00> 


<gg> 


<cp? 


<fg> 


<bd> 


<mc> 


37 ifbd=13thengosub589 
38 ifbd=14thengosub515 
39 ifbd=15thengosub521 
48 ifbd=16thengosub535 

41 ifbd=17thengosub539 
42 ifbd=18thengosub467 

43 ifbd=19thengosub437:gosub443:go 
sub449 

44 gosub5®:gosub128:gosub5® 

45 gosub159:gosub5ß:gosub164:gosub 

58:gosub176:gosub229:gosub226:gosu 
b232:gosub5® 

46 gosub238:gosub5®:gosub&63:gasub2 
67:gosub345:gosub5B®:gosub482 

47 bg=int(rnd( 1) *3) +1:ifbg=2thengo 
sub545:gosub558:gosub556 

48 goto417 

49 nextx:goto25 

58 scnclr:printgr$i$cr$tab( 9)b1$"u 
eber sich t"er$gr$i$cer$tabf 
i)re$ro$; 

51 printna$(x)rf$tab(9)wh$"sie hab 

en"tab[ 28) gr$c$tab( 23) bk$gel x) "$" 
52 printgr$i$cr$pu$"” oelquellen"ta 
b( 28) gr$c$tab( 23) wh$oe( x) cr$gr$h$ 
53 printye$"” bohrtrupps"tab(28)gr$ 
c$tab( 23) bk$bt( x) :printgr$h$:print 
pu$" pipelines"; 

54 printtab( 28) gr$c$tab( 23) wh$pil x 
)er$gr$h$cer$ye$" tanklager fuer oe 
1"; 

55 printtab( 28) gr$c$tab( 23) bk$tllx 
)er$gr$h$er$pu$" liter pro quelle” 


3 
56 printtab( 28) gr$c$tabl 23) wh$Fol x 
Jer$gr$h$cr$ye$" oel in tanklager" 


57 printtab( 28) gr$c$tab( 23) bk$ot( x 
J)er$gr$h$er$pu$" maxi. lagermenge” 


58 printtab( 28) gr$c$tab( 23) wh$mx( x 
) :printgr$h$:printye$"” schienen in 
km"; 

59 printtab( 28) gr$c$tab( 23) bk$sh( x 

) :printgr$i$:printgr$i$:printre$ro 
$k$rf$:printgr$i$ 

68 getkeyz$:return 

61 rt=int( ( 18®rnd( 1)) +1) 7588 

62 kt=int( ( 18*rnd( 1)) +1) #7508:ht=i 
nt(( 18*rnd( 1)) +1) #7588: return 

63 gosub61 

64 scnclr 

65 printgr$i$:printtab( 12)b1$"b o 
er s e":printgr$i$:printtab( 1)re$ 
ro$na$(x)rf$; 

66 printtab(9)wh$"sie haben"tab( 28 
)er$c$tab( 23) bk$ge( x) "$":printgr$i 
$ 


<jg> 


<im> 


<bn> 


<dp> 


<ik> 


<na> 


Eee ml nn nn — nn 
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KUWAIT OELFOERDERUNG 


67 printwh$" aktien gibt"tab( 15) ye 

$"anzahl"tab( 23) pu$"noch zu”tab( 32 

)re$"kurs pro” 

68 printgr$h$:printwh$" es von"tab 

( 15) ye$"haben"tab( 23) pu$"haben"; 

69 printtab( 32) re$"aktie":printgr$ 
i$:printpu$” reederei"tab( 15)bk$ar 

(x)tab(23)wh$art; ii 

78 printtab( 32)bk$rt"$":printgr$h$ 
:printpu$" raffinerie"tab( 15)bk$ak 
(x)tab( 23) wh$akt; 

71 printtab( 32)bk$kt"$":printgr$h$ 
:printpu$” commodore"tab( 15) bk$ahl 
x)tab( 23) wh$aht; 

72 printtab( 32) bk$ht"$":printgr$i$ 
:printtab( 1)wh$ro$"was machen"rf$t 
ab( 19) bk$"@-"; 

73 printbl$"weiter":printgr$i$:pri 
ntpu$” reederei-aktien"tab( 19) bk$" 
ek 

74 printwh$"kaufen"tab( 28) bk$"2-"y 
e$"verkaufen”:printgr$h$ 

75 printpu$” raffinerie-aktien"tab 

( 19) bk$"3-"wh$"kaufen"”tab( 28) bk$"4 

L 

76 printye$"verkaufen":printgr$h$: 
printpu$” commodore-aktien"tab( 19) 

bk$"5-"; 

77 printwh$"kaufen"tab( 28) bk$"6-"y 

e$"verkaufen":printgr$i$:getkeyz$ 

78 ifz$="8"thenreturn 

79 ifz$="1"then86 

88 ifz$="2"then94 

81 ifz$="3"then183 

82 ifz$="4"then 189 

83 ifz$="5"then115 

84 ifz$="6"then122 

85 goto64 

86 gosub18:print:print:printtab( 1) 

re$ro$na$(x)rf$:print:printwh$” si 

e haben "; 

87 printbk$ge( x) "$":print:printwh$ 
"“ eine aktie kostet "bk$rt"$"”:prin 

t 

88 printwh$” wieviel aktien kaufen 
"bk$; :inputqg:ifg>artthen92 

89 w=g*rt:ar(x)=ar(x)+g:art=art-q 

98 ifart<=Bthenart=® 

91 ge(lx)=gelx)-w:goto64 

92 print:printgr$h$:print:printwh$ 
" soviel koennen sie nicht kaufen" 

93 print:printre$ro$k$rf$:getkeyz$ 
:goto64 

94 gosub18:print:print:printtab( 1) 

re$ro$na$(x)rf$ 

95 print:printwh$” sie haben ";bk$ 

ge(x)"$":print 

96 printwh$” eine aktie bringt "bk 


<dd> 


<bb> 


<ko> 


<nn> 


<pm> 


<db> 


<nf> 


<mm?> 


<ne> 


<mm> 


<eb> 
<jl> 
<me> 
<ci> 
<id> 
<kl> 
<mb> 
<li> 
<en> 


<am?> 


$rt"$”cr$er$wh$" wieviel verkaufen 
"bk$; :inputh 

97 ifh>ar(x)then188 

98 1=h*rt:ar(x)=ar(x)-h:art=art+h: 

ifart>188thenart=188 

99 gelx)=gelx)+1l:goto64 

ı88 print 

181 printgr$h$:print:printwh$"” sov 

iel koennen sie nicht verkaufen":p 
rint 

182 printre$ro$k$rf$:getkeyz$:goto 

64 

183 gosub18:print:print:printtab( 1 

Jre$ro$na$( x)rf$:print 

184 printwh$" sie haben "bk$ge( x)" 

$":print:printwh$" eine aktie kost 

et "bk$kt"$" 

185 print:printwh$” wieviel kaufen 
"bk$; :inputr:ifr>aktthen92 

186 d=r*kt 

187 ak(x)=ak(x)+r:akt=akt-r:ifakt< 

=Bthenakt=8 

188 gelx)=gelx)-d:goto64 

189 gosub1B:print:print 

118 printtab( 1) re$ro$na$(x)rf$:pri 

nt:printwh$" sie haben "bk$ge(x)"$ 

*“:print 

111 printwh$” eine aktie bringt "b 

k$kt”"$”"er$er$wh$” wieviel verkaufe 

n "bk$; :inputg 

112 ifg>ak(x)then198 

113 p=g*kt:ak(x)=ak(x)-g:akt=akt+g 
:ifakt>188thenakt=188 

114 gelx)=gelx)+p:goto64 

115 gosub18:print 

116 print:printtab( 1)re$ro$na$( x)r 

f$:print:printwh$" sie haben "bk$g 

elx)"$" 

117 print:printwh$"” eine aktie kos 

tet "bk$ht"$":print 

118 printwh$"” wieviel kaufen "bk$; 
:inputu:ifu>ahtthen92 

119 b=u*ht :ahl x) =ahl x)+u:aht=aht-u 

128 ifaht<=®thenaht=® 

121 ge(lx)=ge(x)-b:goto64 

122 gosub18:print:print:printtabf 1 

Jre$ro$na$( x)rf$:print ” 

123 printwh$"” sie haben "bk$ge( x)" 

$"er$er$wh$” eine aktie bringt "bk 

$ht"$" 

124 print:printwh$"” wieviel verkau 

fen "bk$; :inputv:ifv>ah( x)then188 

125 m=v*ht 

126 ah(x)=ah(x)-v:aht=aht+v:ifaht> 

188thenaht=188 

127 ge(lx)=ge(x)+m:goto64 

128 gosub18:print:print 

129 printtab( 1)re$ro$na$(x)rf$:pri 


<bl> 


 <ig> 


<hc> 
<gl> 
<gb> 
<hd> 
<kj> 


<on?> 


<cg> 


<hh> 
<fe> 


<hp> 


<fd> 
<1h> 


<dd> 


KUWAIT OELFOERDERUNG 


nt:printwh$" sie haben "bk$gelx)"$ 
":print 

138 printwh$” sie haben "bk$bt(x)w 
h$" bohrtrupps":print:printtab( I)r 
o$"was machen" 

131 printer$bk$" 1-"b1$"bohrtrupps 
einstellen"’cr$cr$bk$"” 2-"; 

132 printbl$"bohrtrupps entlassen" 
er$er$bk$” 3-"bl$"weiter":getkeyz$ 
:ifz$="1"then 136 

133 ifz$="2"then142 

134 ifz$="3"thenreturn 

135 goto128 

136 gosub1B 

137 qq=25888:printer$cer$tab( 1)re$r 
o$na$l x)rf$er$er$wh$" sie haben "; 
138 printbk$gel( x)"$":printer$wh$" 
ein bohrtrupp kostet "bk$qq”$"er$ 
139 printwh$” wieviel einstellen 

bk$; :inputqw:ifqw<dthenreturn 

148 gh=qw*gg:bt(x)=bt(x)+qw:ge(x)= 
ge(x)-qh 

141 return 

142 gosub18:q1=15088:printer$cr$ta 
b( i)re$ro$na$(x)rf$er$ 

143 printwh$" sie haben "bk$ge( x)" 
$"cer$er$wh$” zahlen sie jeden bohr 
trupp"”cer$ 

144 print" ein abfindung von "bk$q 
1"$"cr$er$wh$” wieviel entlassen " 
bk$; :inputgr 

145 ifgr>bt(x)then148 

146 gqd=gr*ql:bt(x)=bt(x)-gr:ifbt(x 

)<=®thenbt( x)=®8 

147 ge(x)=ge(lx)-qd:return 

148 print:printgr$h$:print 

149 printwh$” soviel koennen sie n 
icht entlassen"er$cor$re$ro$k$rf$:g 
etkeyz$:goto128 

150 gosub18:print:print 

151 printtab( 1)re$ro$na$( x)rf$er$c 
r$wh$” sie haben "bk$ge( x)"$"cer$ 
152 printwh$" sie haben "bk$pilx)w 
h$” pipelines"cer$cer$tab( 1) ro$"was 
machen”rf$ 

153 printer$bk$" 1-"b1l$"pipelines 
bauen"cer$cr$bk$" 2-"; 

154 printbl$"weiter":getkeyz$:ifz$ 
="1"then157 

155 ifz$="2"thenreturn 

156 goto158 

157 gosub18:qd=58888:print:print 
158 printtab( 1)re$ro$na$( x)rf$er$c 
r$wh$” sie haben "bk$ge(x)"$"”cr$ 
159 printwh$"” der bau einer pipeli 
ne von der"cer$cr$" oelquelle zum t 
anklager am hafen"” 

160 printer$" kostet "; 


<eo> 


<jn> 
<pc> 
<ah> 
<jb> 
<bm> 
<cf> 
<be> 
<hf> 
<ok> 


<dh> 


<ck> 
<kj> 


<mk> 


<bc> 


161 printbk$gd”$":printer$wh$" wie 
viel bauen "bk$; :inputgg:ifgg<@the 
nreturn 

162 gqp=gg*gd 

163 pilx)=pilx)+gg:gelx)=gelx)-gp: 
return 


164 gosub1B:printcer$cr$tab( 1)re$ro 
$na$ rf$er$ 


165 printwh$" sie haben "bk$ge( x)" 
$"cr$er$wh$" sie haben "bk$tl(x); 

166 printwh$” tanklager"cr$cr$tabl 
1)ro$"was machen"rf$cr$er$bk$" 1-" 


’ 

167 printbl$"tanklager kaufen":pri 
nter$bk$" 2-"bl$"weiter":getkeyz$: 
ifz$="1"then178 

168 ifz$="2"thenreturn 

169 goto164 

178 gosub18 . 

171 qu=75888:printer$cer$tab( 1)re$r 
o$na$(x)rf$er$er$wh$" sie haben "; 
172 printbk$gel( x)"$":print:printwh 
$" ein 68.808 liter.oel-tank":prin 
t:print” kostet "; 

173 printbk$qu”$"er$er$wh$” wievie 
l kaufen "bk$; :inputgb:ifgb<dthenr 
eturn 

174 qv=gb*qu 

175 tl{x)=tllx)+gb:gelx)=gelx)-qv: 
mx(x)=tl(x) *68088:return 

176 gosub18:print:print 

177 printtab( 1)re$ro$na$( x)rf$cer$c 
r$wh$” sie haben "bk$gelx)"$"cr$ 
178 printwh$" sie haben "bk$oe( x)w 
h$" oelquellen"er$cr$tabf( 1)ro$"was 
machen” 

179 print:printbk$"” 1-"bl$"nach oe 
l bohren"er$cer$bk$"” 2-"; 

188 printbl$"weiter"”:getkeyz$:ifz$ 
="1"then183 

181 ifz$="2"thenreturn 

182 goto176 

183 ifbt(x)<=®then211 

184 ifpi(x)<=®then215 

185 iftl(x)<=8then217 

186 qm=int(rnd( 1) #3) +1:ifqm=1then] 


187 ifgqm=2then 196 

188 ifqm=3then189 

189 gosub18:wg=148888:print:print 
198 printtab( 1)re$ro$na$( x)rf$er$c 
r$wh$"” sie haben "bk$ge(x)"$"cr$ 
191 printwh$” eine bohrung kostet 
"bk$wg"$"er$er$wh$” wollen sie boh 
ren "b1$"( j/n)" 

192 getkeyz$:ifz$="j"then195 

193 ifz$="n"thenreturn 

194 goto189 


<gc> 
<hm> 


<el> 


<gf> 


<aa> 


<mm> 


« 


KUWAIT OELFOERDERUNG 


195 gelx)=gelx)-wg:goto283 

196 gosub 18:ww=4880@:print:print 
197 printtab( 1) re$ro$na$( x)rf$er$c 
r$wh$" sie haben "bk$gelx)"$"cr$ 
198 printwh$"” hubschrauber"cr$cr$" 
eine bohrung kostet "bk$ww"$"cr$ 
199 printwh$” wollen sie bohren "b 
1$"( j/n)":getkeyz$:ifz$="j"then282 
2088 ifz$="n"thenreturn 

281 goto196 

282 gel x)=gel x) -ww 

283 wh=int{rnd( 1)#3) +1:ifwh=1then2 
86 
284 
285 


ifwh=2then289 

ifwh=3then286 

286 print:printgr$h$ 

287 print:printwh$” sie sind fuend 

ig geworden” :print 

288 print” sie bekommen eine oelqu 

elle"cer$cer$re$ro$k$rf$:getkeyz$:oe 

(x)=oe(x)+1:return 

289 print:printgr$h$:print 

218 printwh$"” sie sind nicht .fuend 
ig geworden" :print:printre$ro$k$rf 
$:getkeyz$:return 

211 print:printgr$h$:print 

212 printwh$"” sie haben keine bohr 
trupps "er$cr$" zum foerdern des o 

els" 

213 printer$re$ro$k$rf$:getkeyz$ 
214 return 

215 print:printgr$h$:print:printwh 
$" sie haben keine pipeline":print 

216 print” zum transportieren des 
oels":print:printre$ro$k$rf$:getke 

yz$:return 

217 print:printgr$h$:print 

218 printwh$” sie haben keine tank 
lager":print:print" zum lagern des 
oels" 

219 printcer$re$ro$k$rf$:getkeyz$:r 
eturn 

228 ifoe(x)<=®thenoel( x) =8 

221 ifoe{ x})=®thenfo(x)=8 

222 ifoe(x)=Bthenreturn 

223 wl=int((bt(x)*1888) /ce(x)) 

224 ifwl>18888thenwl=18008 

225 folx)=wL:wr=wl*oe[ x) :ot(x)=ot( 
x)+twr:return 

226 ifot(x)<=mx(x)thenreturn 

227 wd=ot( x) -mx(x) :ot(x)=ot(lx)-wd: 
gosub1B gr 

228 printer$er$tab( I)re$ro$na$(x)r 

f$er$er$gr$h$er$ 

229 printwh$" sie versuchten mehr 

oel zu"cr$cr$" lagern, als die max 
imale lager-"cr$ 

238 print” menge zuliess"er$cr$" d 


<nk> 
<mc> 


<po> 
<jg> 


<gd> 
<ia> 
<em> 
<mf> 


<ib> 
<pc> 
<ab> 
<be> 


<ae> 


<bf> 
<hj> 


<me> 
<cb> 


<om> 
<gf> 
<dl> 


<ca> 


<on> 
<fj> 


<jp? 


<go> 
<ja> 
<na> 
<nl> 
<di> 
<ao> 


<on? 
<jg> 


<od> 


<ii> 


<dj> 
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eshalb wurden ihnen "bk$wdwh$” lit 
er" 

231 print:print"” oel abgezogen"”:pr 
int:printre$ro$k$rf$:getkeyz$:retu 
rn 

232 ifpi(x)>=oe(x)thenreturn 


233 wg=oe(x)-pilx) 
234 oe(x)=oe(x)-wg:gosubiß:printcer 


$cer$tab( 1)re$ro$na$(x)rf$er$er$gr$ 
h$er$ 

235 printwh$"” da sie zuwenig pipel 
ines haben"cr$cr$" waren die ander 
en ueberlastet”cr$ 

236 print" deshalb wurden ihnen "b 
k$wger$er$wh$”" oelquellen abgezoge 
n"cer$ 

237 printre$ro$k$rf$:getkeyz$:retu 
rn 

238 wp=int( ( 18*rnd( 1)) +1) #258 

239 ifsh(x)<1888then248:else241 
248 1a$="nein":mb$="nein":nc$="nei 
n":goto249 

241 ifsh(x)<2588then242:else244 
242 1a$=" ja" :mb$="nein" 

243 nc$="nein":goto249 

244 ifsh(x)<5888then245:else246 
245 1a$=" ja" :mb$=" ja”:nc$="nein":g 
oto249 

246 ifsh(x)>=588@then247 

247 1a$=" ja" :mb$=" ja" 

248 nc$=" ja” 

249 scnclr:printgr$i$cr$tab( 8)b1$" 
sehienene t z"cer$gr$i$ 

258 printtab( 1) re$ro$na$( x)rf$tab( 
9)wh$"sie haben"tab( 28) gr$c$tabl 23 
J)bk$gelx)"$" 

251 printgr$i$cer$tab( 18) pu$"ange-" 
tab( 21) ye$"entfernung"”tab( 33) re$"”k 
m vor-" 


252 printgr$h$cr$wh$" staedte"tab( 


18) pu$"schlossen"tab( 21) ye$"in km" 


L 

253 printtab( 33) re$"handen"cr$gr$i 

$cr$pu$"” aden"tab( 18) wh$la$tabl 21) 

bk$" 1000" 

254 printgr$h$cer$pu$"” tripoli"tab( 
18) wh$mb$tab( 21) bk$"2598"; 

255 printtab( 32)wh$sh( x)cr$gr$h$er 

$pu$” lavera"tab( 18) wh$nc$tab( 21)b 

k$"5000" 

256 printgr$i$cer$wh$" ein kilomete 

r schiene kostet"tab( 30) gr$c$; 

257 printbk$wp”$"cr$gr$i$cer$tabl 1) 

wh$ro$"was machen"rf$tab( 13) bk$"1- 
14 

258 printbl$"schienen verlegen"cr$ 

gr$h$cer$tabl 13) bK$"2-"b1$"weiter"c 

r$gr$i$:getkeyz$ 


<ge> 


<ig> 
<el> 
<na> 


<on> 


<mn> 


<og> 
<oi> 
<ji> 
<ff> 
<o00> 
<fa> 
<ga> 
<dk> 
<ij> 
<di> 
<ae> 
<od> 


<oo> 


<ho> 


<do> 


<kd> 


<ng> 


<od> 


<dm> 


<mn> 


<mk> 


<mi> 


<jj? 


KUWAIT OELFOERDERUNG 


259 
268 


ifz$="1"then262 

ifz$="2"thenreturn 

261 goto249 

262 gosub1ß:printer$cr$tab( 1)re$ro 
$na$(x)rf$er$er$wh$" sie haben "; 

263 printbk$ge(x)"$"er$er$wh$” ein 
km schiene kostet "bk$wp"$"cr$ 

264 printwh$" wieviel km bauen "bk 
$; :inputwu:ifwu<@thenreturn 

265 wb=wu#wp:sh(x)=sh( x) +wu:ge( x) = 

gel x) -wb 

266 goto239 

267 ifot( x) <28888thenreturn 

268 wv=int(rnd( 1) #4) +1:ifwv=1ithenh 

gq=10800 

269 ifwv=1thenhw=20088 

2708 ifwv=1thenhh=35888 

271 ifwv=1thenhl=59088 

272 ifwv=2thenhgq=20888 

273 ifwv=2thenhw=40888 

274 ifwv=2thenhh=78888 

275 ifwv=2thenhl=108888 

276 ifwv=3thenhg=38888 

277 ifwv=3thenhw=60808 

278 ifwv=3thenhh= 105888 

279 ifwv=3thenhl1=158888 

288 ifwv=4thenhg=48889 

281 ifwv=4thenhw=88888 

282 ifwv=4thenhh=148888 

283 ifwv=4thenhl=288088 

284 scnclr:printgr$i$cer$tab( 8) b1$" 

verschifrfen" 

285 printgr$i$cr$tab( 1) re$ro$na$( x 

)rf$tab(9)wh$"sie haben"tab( 28) gr$ 

c$; 

286 printtab( 23) bk$ge( x) "$"er$gr$i 

$cr$wh$"frachtrate”tab( 11) gr$c$tab 

( 12)bk$wv; 

287 printtab( 18) ye$"18.808 liter r 

oh-oel"cr$gr$h$ 

288 printtab( 4)pu$"nach"tab( 7) gr$c 

$tab( 18) re$"kosten”; 

289 printtab( 25) gr$c$tab( 28) pu$"oe 

1 in tanks"er$gr$i$er$wh$"” colombo 


’ 
298 printtab( 179)bk$hq”$”cr$gr$h$er 
$wh$" kwinana"”tab( 17)bk$hw"$"tab( 2 
8)wh$otl x) 
291 printgr$h$cr$wh$" kent"tab( 17) 
bk$hh”$"tab( 29) pu$"liter"cr$gr$h$ 
292 printwh$" port of spain"tab( 17 
)bk$h1"$"er$gr$i$er$tabl 1)wh$ro$"w 
as machen"rf$; 
293 printtab( 13)bk$"8-"b1l$"weiter" 
er$gr$h$cer$pu$"verschiffen"tab( 13) 
bk$"1-"; 
294 printwh$"colombo"tab( 24) bk$"2- 
"ve$"kwinana"er$gr$h$er$pu$"” nach” 


<gf> 
<bl> 
<sbg> 


<ag> 
<ea> 
<hl> 


<pi> 
<gd> 
<bb> 


<pk> 
<kf> 
<oh> 
<jm> 
<gf> 
<lg> 
<pc> 
<ng> 
<ge> 
<nh> 
<id> 
<ai> 
<hl> 
<pe> 
<jb> 
<pk> 


<cf> 


<ic> 


<do> 
<em> 


<mm?> 


<mo> 


<hl> 


<1k> 
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’ 

295 printtab( 13)bk$"3-"wh$"kent"ta 
b[24)bk$"4-"ye$"port of spain”"er$g 
r$i$ 
296 

297 


298 
299 


388 


getkeyo$:ifo$="®"thenreturn 
ifo$="1"thenhr=hq:goto382 


Par aba a LE HE 
ifo$="3"thenhr=hh:goto382 


ifo$="4"thenhr=hl:goto382 

381 goto284 

382 gosub18:printer$er$tab( 1)re$ro 
$na$(x)rf$er$ 

383 printwh$” sie haben "bk$ge(x)" 
$"cr$cer$wh$" sie haben "bk$ot(x); 
384 printwh$" liter oel"cr$cr$” 18 
.B8B liter kosten "bk$hr”$"cr$ 

385 printwh$" wieviel verschiffen 
"bk$; :inputhd:ifhd>ot( x)then34® 
386 ifhd>488088then343 

387 hg=int( hr*( hd4/10808)) :ge( x)=ge 
(x)-hg 

388 ot(x)=ot(x)-hd:hp=hd*1.5:print 
:printgr$h$:print 

389 printwh$"” die versicherungssum 
me "cr$cr$" betraegt "bk$hp"$”cr$ 
318 printwh$” wollen sie ihr oel v 
ersichern "b1$"( j/n)":getkeyz$ 

311 ifz$="j"thenhu=1:goto314 

312 ifz$="n"thenhu=@:g0t0315 

313 goto315 

314 ge(x)=ge(x)-hp 

315 hbsint(rnd( 1)#3) +1:ifhb=1then3 
33 
316 
317 
318 
319 
328 
321 
322 
323 
324 


ifhb=2then31B 

ifhb=3then333 

ifhu=1then319:else328 

ifwv=1thenhv=11 

ifwv=2thenhv=16 

ifwv=3thenhv=26 

ifwv=4thenhv=36 

hm=hv#hd:gosub1B 

print:print:printwh$” durch fe 

uer ist ihre ladung":print 

325 print” vernichtet worden":prin 

t:print"” da sie versichert waren b 

ezahlt”:print 

326 print” ihnen die versicherung 

einen"cr$cer$" betrag von "bk$hm"$" 

er$er$re$ro$k$rf$ . 

327 getkeyz$:ge(x)=gelx)+hm:return 

328 gosub1ß:print:print 

329 printwh$" durch feuer ist ihre 
ladung"”:print:print” vernichtet w 

orden":print 

338 print” da sie nicht versichert 

waren"er$cer$” ist ihr geld verlor 

en" 

331 printer$re$ro$k$rf$:getkeyz$ 


<ae> 


KUWAIT OELFOERDERUNG 


332 return 

333 lIg=int(rnd( 1)#4) +1:ifo$="1"the 
nlw=18 

334 ifo$="2"thenlw=15 

335 ifo$="3"thenlw=25 

336 ifo$="4"thenlw=35 

337 1Ih=( lw+lg) *hd:gosub18:print:pr 
int:printwh$" sie sind angekommen 


338 printer$pu$"” frachtrate "bk$lgq 

er$cr$re$" sie bekommen "; 

339 printbk$1h"$":print:printre$ro 

$k$rf$:getkeyz$:gelx)=gelx)+ih:ret 

urn 

348 print:printgr$h$ 

341 print:printwh$” sie haben nich 
t soviel oel"”:print:printre$ro$k$r 

f$:getkeyz$ 

342 goto382 

343 print:printgr$h$:print:printwh 

$" sie koennen nur bis zu"”:print 

344 print” 488.888 liter verschiff 

en":print:printre$ro$k$rf$:getkeyz 

$:goto382 

345 ifot(x)<18888thenreturn 

346 ifsh(x)<188@thenreturn 

347 11=int(rnd( 1) #4) +1:ifll=1thenl 

r=25008 

348 ifll=1thenl1d=48888 

349 ifl1=1thenlg=55988 

358 ifll=2thenlr=59888 

351 ifl1=2then1d=88888 

352 ifll=2thenlg=110888 

353 ifl1=3thenlr=75088 

354 ifl1=3thenld=12a988 

355 ifl1=3thenlg=165888 

356 ifll=4thenlr=180898 

357 ifll=4thenld=168088 

358 ifll=4thenlg=220888 

359 scnelr:printgr$i$ 

368 printtab(?)bl$"t ranspor 
t ie r e n"cr$gr$i$ 

361 printtab( 1)re$ro$na$( x)rf$tab( 

9]wh$" sie haben”; 

362 printtab( 28) gr$c$tab( 23) bk$ge( 
x») "$"er$gr$i$er$" frachtrate"; 

363 printtab( 12) gr$c$tab( 13)bkK$11; 
tab( 28) ye$"10.888 liter oel"cr$gr$ 
h$ 

364 printtab( 19) re$"ange-"tab( 38) p 
u$"liter oel"cr$gr$h$er$ye$"” nach" 


365 printtab( 9) wh$"kosten"tab( 19] r 
e$"schlossen"tab( 38) pu$"im tank”cr 
$er$i$ 

366 printpu$"aden"tab(B)bk$1r”"$"ta 
b( 28) wh$la$er$gr$h$er$pu$"tripoli” 


’ 


<ci> 


<mp> 
<fb> 
<db> 
<je> 


<ja> 


<hb> 


<pg> 
<ih> 


<eon> 
<bi> 


<mo> 


<pm> 
<kc> 
<ko> 


<lg> 
<bc> 
<ne> 
<ca> 
<jj> 
<jf> 
<lo> 
<cn> 
<jc> 
<bi> 
<nh> 
<le> 
<fk> 


<aa> 
<bp> 


<1h> 


<gk> 


<ig> 


<30> 


<ah> 
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367 printtab(8)bk$1d”$"tab( 28) wh$m 

b$tab( 29) bk$ot( x)cr$gr$h$cr$pu$"la 
vera”; 

368 printtab(B8)bk$1g"$"tab( 28) wh$n 

c$cer$gr$i$er$tab( 1Jwh$ro$"was mach 
en"rf$; 

369 printtab(16)bk$"8®-"b1$"weiter" 

er$gr$h$cer$pu$" oel nach"tab( 16)bk 

1 

378 printye$"aden"tab( 25) bk$"2-"wh 

$"tripoli"cr$gr$h$ 

371 printpu$"transportieren"tabf 16 

J)bk$"3-"ye$"lavera"cr$gr$i$ 

372 getkeyp$:ifp$="®"thenreturn 

373 ifp$="1"thenlp=1r:goto377 

374 ifp$="2"thenlp=1d:g0t0377 

375 ifp$="3"thenlp=1g:g0t0377 

376 goto359 

377 ifp$="1"andla$<>" ja"then399 
378 ifp$="2"andmb$<>"ja"then399 

379 ifp$="3"andnc$<>"ja”then399 
388 gosub1B8 

381 printer$cer$tab( 1Jre$ro$na$(x)r 

f$er$er$wh$” sie haben "; 

382 printbk$ge( x) "$"cer$cer$wh$" sie 
haben "bk$ot(x)wh$” liter oel"cr$ 

383 print” 18.808 liter kosten "bk 

$1p"$"er$cer$wh$” wieviel transport 

ieren "bk$; 

384 inputlu:iflu>ot(x)then393 

385 iflu>2808888then395 

386 1b=int(1p*( 1u/10888)) :ge(x)=ge 

(x)-1b:0t(x)=ot(x)-lu 

387 lvsint(rnd( 1) #4) +1:ifp$="1"the 

nlm=11 

388 ifp$="2"thenlm=21 

389 ifp$="3"thenlm=31 

398 rgq=(lm+tlv)*lu:print:printgr$h$ 
:print:printpu$” frachtrate "; 

391 printbk$lv:printer$re$" sie be 

kommen "bk$rg"”$"cr$cr$re$ro$k$rf$ 

392 getkeyz$:ge(x)=gelx)+rg:return 

393 print:printgr$h$:print 

394 printwh$" sie haben nicht sovi 

el oel”:print:printre$ro$k$rf$:get 

keyz$:g0t0377 

395 print:printgr$h$:print 

396 printwh$"” sie koennen nur bis 

zu"er$cr$” 200.808 liter transport 

ieren" 

397 printcr$re$ro$k$rf$ 

398 getkeyz$:g0t0377 

399 gosub18:print:print:print:prin 

twh$" diese stadt ist nich an das" 

488 print:print” schienen-netz ang 

eschlossen":print:printre$ro$k$rf$ 
:getkeyz$ 

481 goto359 


<ek> 


<em> 


<io> 
<mi> 


<pj> 
<fp> 
<dj> 
<il> 
<of> 
<ei> 
<ka> 
<db> 
<ml> 
<li> 


<hj> 
<od> 
<ch> 
<je> 
<kf> 
<la> 
<pa> 
<kb> 
<ic> 
<nj? 
<jb> 


<fj> 
<ic> 


<db> 
<ik> 


<co> 
<gd> 
<hc> 


<in> 


<ip> 
<of> 
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482 rw=5888:rh=15888:r1=58:rp=1888 

B:dq=rw*bt( x) :dw=rh#t1(x) 

483 dh=r1l*sh(x):dl=rp*pi(x):senelr 

:printgr$i$ 

484 printtab(3)bl$"laufende 
kos t e n"er$gr$i$ 

485 printtab( 1)re$ro$na$(x)rf$tabl 

9)wh$"sie hatten”; 

406 printtab( 28) gr$c$tab( 23) bk$ge( 

x)"$"er$gr$i$er$pu$” fuer”; 

487 printtab( 12) ye$"kosten pro"tab 

(23) re$"anzahl"”tab( 38) wh$"summe"cr 

$gr$i$ 

488 printre$"bohrtrupps"tab( 11)bk$ 

rw"$"tab( 22) wh$bt( x) tab( 29) bk$dqg”$ 

"cr$gr$h$ 

489 printre$"tanklager"tab( 11)bk$r 

h"$"tab( 22)wh$t1( x) tab( 29) bk$dw"$" 

cer$gr$h$ 

418 printre$"pipelines"tab( 11)bk$r 

p"$"tab( 22)wh$pil x) tab( 29) bk$d1"$" 

er$gr$h$ 

411 printre$"schienen-"er$"kilomet 

er"tab( 11)bk$r1"$"tab{ 22) wh$sh( x); 

412 printtab(29)bk$dh"$"er$gr$i$er 

$er$i$:dr=dg+dw+dl+dh:ge( x)=gelx)- 

dr 

413 printtab(2)wh$ro$"gesamt summe” 

rf$tab( 28) gr$c$tab( 23) wh$dr"$”"er$g 

r$i$ 

414 printtab(2)wh$ro$"sie haben je 

tzt"rf$tab( 28) gr$c$tab( 23) bk$gel x) 

"o"” 

415 printgr$i$:printgr$i$ 

416 printre$ro$k$rf$:printgr$i$:ge 

tkeyz$:return 

417 gosub18:printer$cer$tab( 1)re$ro 

$na$( x)rf$er$ 

418 printtab( 1)wh$ro$"was machen"r 

*$er$cer$bk$”" 1-"bl$"naechster spie 

ler"er$cr$bk$"” 2-"; 

419 printbl$"spiel beenden":getkey 

z$:ifz$="1"then422 

428 ifz$="2"then438 

421 goto417 

422 ifge(x)<@thengel x) =int( gel x) + 

ge(x)/1800)*10) 

423 bp=oe( x) *#5908808:ifgelx)>-bpthe 

n49 

424 gosub18:print:print 

425 printbk$"” sie sind pleite ! ! 

! t"cer$cr$re$". am besten sie fange 

n noch "cr$ 

426 print” noch mal neu an ! ! I ! 

"cr$cr$re$ro$k$rf$:getkeyz$:oe(x)= 

8:pilx)=8:t1(x)=® 

427 bt(x)=@:fo(x)=9:mx(x)=@:sh(x)= 

d:gel x) =758888:0ot(x)=® 


<cb> 
<lo> 
<cl> 
<mk> 


<1ln> 
<pb> 
<hn> 
<ho> 


<bj> 


<cp> 
<mb> 
<1h> 
<jc> 
<li> 


<ik> 


<hd> 


<in> 
<ka> 
<ji> 
<ca> 
<lp> 
<go> 


<bd> 


<nk> 


428 art=art+ar( x) :akt=akt+tak( x) :ah 
t=aht+tah( x) :ar(x)=B:ak(x)=® 
429 ah(x)=9:goto49 
430 gosub18:printer$er$tab( 12) wh$” 
endabrechnung"er$cer$cer$:fori=1tosp 
i 

na: a , u 
Hahnad an 1) BL 1) r2snantuulı)=til 
i) *75808 
432 db(i)=ot(i)*35:dv(i)=sh(i)*358 
8:dm(i)=ar(i)*35008:gql i)=akli)*35 
1414] 
433 gw(i)=ah(l i) #35888:ghli)=ge(i) 
434 glli)=int(gl(li)+dd(i)+dgli)+dp 
(i)+du(i)+db(i)+dv(i)+dm(i)+gg(i)*+ 
gwli)+gh(i)) 
435 printtab( 1)re$ro$na$li)rf$tab( 
12)wh$"hat"tab( 17)bk$glli)"$" 
436 printgr$i$:nexti:end 
437 ifar(x)<=®thenreturn 
438 pgq=int( ( 18*rnd( 1)) +1) #8888:pw= 
pq*ar(x) :gosub18:print:print 
439 printtab( 1)re$ro$na$( xIrf$cer$c 
r$wh$” dividenden - reederei"cr$ 
448 print” pro aktie gibt es "bk$p 
q"$"er$cer$wh$" sie haben "bk$ar( x) 


’ 

441 printwh$" reederei-aktien"cer$c 
r$" macht zusammen "bk$pw"$"cr$er$ 
re$ro$k$rf$ 

AA2 getkeyz$:gelx)=ge(lx)*+pw:return 
443 ifak(x)<=dthenreturn 

444 ph=int(( 18*rnd( 1)) +1) #8000:p1= 
ph*ak( x) :gosub18:print:print 

445 printtab( 1)re$ro$na$(x)rf$er$c 
r$wh$” dividenden - raffinerie"cr$ 
446 print" pro aktie gibt es "bk$p 
h"$"cer$cer$wh$" sie haben "bk$akl( x) 


’ 

447 printwh$"” raffinerie-aktien"”er 
$cr$" macht zusammen "bk$p1"”$"cr$c 
r$re$ro$k$rf$ 

448 getkeyz$:ge(lx)=ge(lx)+pl:return 
449 ifah( x) <=@thenreturn 

458 pr=int(( 18*rnd( 1)) +1) *8008:pd= 
pr*ah( x) :gosub18:print:print 

451 printtab( 1)re$ro$na$(l x)rf$er$c 
r$wh$” dividenden - commodore"cr$ 
452 print” pro aktie gibt es "bk$p 
r"$"er$cr$wh$" sie haben "bk$ahl x) 


’ 

453 printwh$" commodore-aktien"cr$ 
er$" macht zusammen "bk$pd"”$"cr$er 
$re$ro$k$rf$ 

454 getkeyz$:ge(x)=ge(lx)*+pd:return 
455 ifoe( x) <8thenreturn 

456 pg=int(rnd( 1) *3)+1:ifoe(x)>18t 
henpg=pg*3 


<ji> 
<im> 


<dh> 


<jl> 


<cl> 
<an? 
<og> 
<bb> 
<cc> 
<gc> 
<ie> 


<dd> 


<hl> 


<ef> 
<ff> 
<el> 


<ni> 


<nh> 


<bh> 


<bi> 
<gi> 
<ko> 


<mp> 


<dh> 


<fd> 


KUWAIT OELFOERDERUNG 


457 oe[x)=oe(x)-pg:gosub1iß:print:p 
rint 

458 printtab( 1)re$ro$na$( x)rf$cer$c 
r$wh$" es sind von ihnen "bk$pg:pr 
int 

459 printwh$” oelquellen versiegt" 
:print:printre$ro$k$rf$:getkeyz$:r 
eturn . 

468 ifpi(x)<=Bthenreturn 

461 ifge(x)<128888@thenreturn 

462 pp=55088:pu=pp*pilx):gosubiB:p 
rint:print 
463 printre$ro$na$(x)rf$:print:pri 
ntwh$" pipelines - ueberholen":pri 
nt 

464 print” kosten pro pipeline "bk 
$pp"$"er$er$wh$" sie haben "bk$pil 
x); 

465 printwh$” pipelines"cr$cr$" ma 
cht zusammen "bk$pu"$"cer$er$re$ro$ 
k$rf$ 

466 getkeyz$:ge(lx)=ge(lx)-pu:return 
467 ifbt(x)<=dthenreturn 

468 ifge(x)<1588888thenreturn 

469 ifge( x) <10088088thenpb=75808:go 
t0o474 

478 ifge(x)<25088808thenpb=158BQ:g 
oto474 

471 ifgel x) <500BBB@Bthenpb=3QBBR:g 
0ot0474 

472 ifge(x)<108000088thenpb=6BRAB: 
got0474 

473 ifge(x)>1808B0088thenpb=120808 
474 pv=pb*bt( x) :gosub18:printer$er 
$tab{ I) re$ro$na$(x)rf$ 

475 print:printwh$" praemien - boh 
rtrupps":print 

476 print” praemie pro bohrtrupp " 
bk$pb"$"cr$er$wh$" sie haben "bk$b 
t(x); 

477 printwh$" bohrtrupps"er$cr$" m 
acht zusammen "bk$pv"$"er$cer$re$ro 
$k$rf$ 

478 getkeyz$:ge[x)=gelx)-pv:return 
479 ifsh(x)<=dthenreturn 

A858 ifgelx)<200888ßthenreturn 

481 pm=158:uqg=pm*sh( x) :gosub18:pri 
nt:print 

482 printtab( 1) re$ro$na$( x)rf$cer$c 
r$wh$" schienen - ueberholen"cr$ 
483 print" pro kilometer schiene " 
bk$pm"$"cr$cr$wh$" sie haben "bk$s 
h(x); 

484 printwh$"” kilometer”cr$cr$"” ma 
cht zusammen "bk$uq"$"cr$cr$re$ro$ 
k$rf$ 

485 getkeyz$:ge(x)=gelx)-ug:return 
A86 ifoe(x)<8thenreturn 


<bg> 


<jl> 


<dd> 
<dg> 
<mi> 


<1f> 


<hd> 


<nc> 


<mp? 
<ck> 
<ap> 
<mc> 
<mn> 
<kl> 


<nl> 


<al> 
<if> 


eng> 


<kk> 


<nd> 


<fl> 
<kk> 
<ik> 
<ee> 


<fl> 


<ed> 


<gj? 


<kk> 
<kc> 
<jp> 


487 uw=int(rnd{ 1) #3) +1:ifoe(lx)>1Bt 
henuw=uw*3 

488 oe(x)=oe(x)-uw:gosub1ß:print:p 
rint 

489 printtab( 1) re$ro$na$( x)rf$cer$c 
r$wh$” ein mitspieler hat von ihne 
n "bk$uw:print 

498 printwh$” oelquellen in die lu 
ft gesprengt" :print:printre$ro$k$r 
f$:getkeyz$:return 

491 uh=int( ( 180*rnd( 1) ) +1) #25808:go 
sub18:print:print 

492 printtab( 1) re$ro$na$( x)rf$cer$c 
r$wh$" sie erhalten eine fracht-": 
print 

493 print” kostenverguetung von "b 
k$uh"”$”"er$cer$re$ro$k$rf$:getkeyz$ 
494 ge(x)=ge(x)+uh:return 

495 ifbt(x)<=@thenreturn 

496 ifge(x)<1588888thenreturn 

497 ul=38988 

498 ur=ul#bt(x) :gosub18:printer$er 
$tab( 1) re$ro$na$( x)rf$cr$ 

499 printwh$" neue - unterkuenfte"” 
er$cr$" kosten pro bohrtrupp "bk$u 
1"$"cr$ 

588 printwh$"” sie haben "bk$bt(x)w 
h$” bohrtrupps"cr$cer$"” macht zusam 
men "; 

581 printbk$ur"$":print:printre$ro 
$k$rf$:getkeyz$:ge(lx)=gelx)-ur:ret 
urn 

582 ifpi(x)<9thenreturn 

583 ud=int(rnd( 1) #5) +1 

584 ifpi(lx)>28thenud=ud*3 

585 pi(x)=pilx)-ud:gosub1ß:printcr 
$cer$tab( 1)re$ro$na$( x)rf$er$ 

586 printwh$" ein mitspieler hat v 
on ihnen "bk$uder$cr$wh$"” pipeline 
s sabotiert"” 

587 printer$re$ro$k$rf$ 

588 getkeyz$:return 

589 ug=-int(( 18*rnd( 1)) +1) *25008:go 
sub18:printcer$cr$tab( 1Jre$ro$na$( x 
Irf$cr$ 

51@ printwh$” sie koennen eine oel 
quelle fuer"cr$cr$tab( 1)bk$ug"$"wh 
$" kaufen"cr$ 

511 print” wollen sie kaufen "b1$"” 
( j/n)":getkeyz$:ifz$="j"then514 
512 ifz$="n"thenreturn 

513 goto589 

514 ge(x})=gelx)-ug:oe(lx)=oelx)+ti:r 
eturn 

515 ifbt(x)<1dthenreturn 

516 up=int(rnd( 1}*8) +1 

517 ifbt(x)>45thenup=up*#5 

518 bt(x)=bt(x)-up:gosub18:printcer 


<cf> 


<ai> 


<jc> 


<oj? 


<cl> 


<1ln> 


<hl> 
<ic> 
<cm> 
<co> 
<gk> 


<ih> 


<no> 


<in> 


<ik> 
<no> 
<am> 
<gk> 


<eg? 


<ne> 
<ig> 
<ii> 


<dj> 


<cg> 


<je> 
<mm?> 
<ok> 


<1f> 
<mo> 
<1lp> 
<aj> 


KUWAIT OELFOERDERUNG 


$cer$tab( I) re$ro$na$l( x)rf$er$er$wh$ 
"es sind "; 


<af> 


519 printbk$upwh$" bohrtrupps wege 


n unge-"er$ 

528 print" rechter behandlung gega 
ngen":print:printre$ro$k$rf$:getke 
yz$:return 

521 iftl(x)<6thenreturn 

522 uusint(rnd( 1) #4) +1:iftl(x)>16t 
henuu=uu*3 

523 tl(x)=tl(x)-uu 

524 mx(x)=tl(x)*60888:gosubiß:prin 
ter$er$tab( 1) re$ro$na$(x)rf$er$ 
525 printwh$” ein mitspieler hat v 
on ihnen "bk$uucr$ 

526 printwh$" tanklager in brand g 
esetzt"cr$ 

527 printre$ro$k$rf$:getkeyz$:retu 
rn 

528 iftl(x)<=Bdthenreturn 

529 ifge(x)<2888888thenreturn 

539 ub=45889:uv=ub*tl(x) :gosub18:p 
rint:print 

531 printtab( 1)re$ro$na$( x)rf$er$c 
r$wh$" ueberholung - tanklager"cr$ 
532 print” kosten pro tanklager "b 
k$ub"$"er$er$wh$" sie haben "bk$tl 
(x); 

533 printwh$" tanklager”cr$cr$"” ma 
cht zusammen "bk$uv"$"cr$cr$re$ro$ 
k$rf$ 

534 getkeyz$:gelx)=ge(lx)-uv:return 
535 ifge( x) <S5B0@88dthenreturn 

536 um=int( rnd( 1) #25) +1:bq=(gelx)/ 
188) *um:ge(lx)=gelx)-bq 

537 gosub18:printer$cer$tab( 1)re$ro 
$na$l xIrf$er$er$wh$” inflation von 


U 
538 printbk$um"”%":print:printre$ro 
$k$rf$:getkeyz$:return 
539 ifsh(x)<168@thenreturn 
548 bw=int(rnd( 1) #1488) +1:sh(x)=sh 
(x)-bw:gosub 1B:print 
541 printer$tab( 1)re$ro$na$( x)rf$c 
r$ 
542 printwh$” ein mitspieler hat v 
on ihnen"bk$bw;cr$ 
543 printwh$"” kilometer schienen 1 
ahmgelegt"cr$ 
544 printre$ro$k$rf$:getkeyz$:retu 
rn 
545 ifar(x)<ißdthenreturn 
546 bh=eint(rnd( 1)*3) +1:ifar(x)>2St 
henbh=bh*5 
547 ar(x)=ar(x)-bh:art=art+bh:gosu 
b18:print:print 
548 printtab( 1)re$ro$na$( x)rf$er$c 
r$wh$" geben sie umsonst "bk$bh:pr 


<gi> 
<kp> 
<go> 


<gn> 
<oa> 


<mb> 
<gc> 
<he> 
<od> 
<ef> 
<bf> 


<ee> 


<ij> 


<ke> 


<gf> 
<kk> 
<oi> 


<hb> 


<kp> 


<li> 
<1In> 


<fc> 
<da> 
<bj> 
<ni> 


<gb> 
<hk> 


<ph> 


<ee> 
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int 

549 printwh$” reederei-aktien zuru 
eck":print:printre$ro$k$rf$:getkey 
z$:return 

558 ifak(x)<ißthenreturn 

551 bl=eint(rnd( 1) #3) +1:ifak( x) >25t 


henbl=b1*#5 
552 ak(x)=ak(x)-bl 


553 akt=akt+bl:gosub1ß:printer$cr$ 
tab( 1) re$ro$na$( x)rf$cr$ 

554 printwh$"” geben sie umsonst "b 
k$bl;cr$cer$wh$” raffinerie-aktien 
zurueck"cr$ 

555 printre$ro$k$rf$:getkeyz$:retu 
rn 

556 ifah(x)<1ißdthenreturn 

557 br=eint(rnd{ 1) #3) +1:ifahl x) >2St 
henbr=br*#5 

558 ahlx)=ahlx)-br:aht=aht+br:gosu 
b18:print:print 

559 printtab( 1) re$ro$na$( x)rf$cer$c 
r$wh$” geben sie umsonst "bk$br:pr 
int d 

568 printwh$” commodore-aktien zur 
vek":print:printre$ro$k$rf$:getkey 


<ac> 


z$:return <ma> 
561 rem ============2===2== 32 Cc> 
562 rem 68671 bytes memory <cd> 
563 rem 21641 bytes program <aa> 
564 rem 88546 bytes variables <ld> 
565 rem B1468 bytes arrays <gn> 
566 rem 80623 bytes strings <de> 
567 rem 36481 bytes free (B) <np> 
568 rem ========================== <]h> 


Mystka Adventure 


Erforschen Sie das Geheimnis von Mystika, 
der fantastischen versunkenen Insel, die vor Ihren un- 
gläubigen Augen sich aus den Fluten eines 
sagenumwobenen Sees erhebt. 


Kennen Sie die unendliche Geschichte? In dieser span- 
nenden Story gelangt der kleine Bastian durch einen 
Spiegelin das Land Fantasien. 


BITTE WARTEN 


Stellen Sie sich folgendes vor: Sie kaufen sich das neue- 
ste Adventure, laden es in Ihren C16 mit 64KByte, 
starten — und plötzlich werden Sie von einer geheim- 
nisvollen Kraft in den Monitor hineingezogen. Krampf- 
haft klammern Sie sich noch am Joystick fest, aber es 
nützt nichts. Sie verlieren die Besinnung! Wenn Sie wie- 
der aufwachen, befinden Sie sich an einem See. Sie... 
Aber warum soll ich eigentlich weitererzählen? Sie 
selbst sollten das Geheimnis von Mystika erforschen! 
Aber denken Sie nicht, daß das so einfach wäre. Nur 
mit Logik können Sie es schaffen. Sie gelangen nur 
durch die Auflösung des Rätsels heil und unversehrt 

zu Ihrem Ausgangspunkt zurück. Jeder entscheidende 
Fehler beendet Ihr Computer-Leben. Ein Tip: Der 
größte Fehler wird meistens schon bei Beginn des 
Abenteuers gemacht. Der ist aber so folgenschwer, 

daß Sie ihn erst dann richtig bemerken werden, wenn 
Sie das Ziel schon fast erreicht haben. Jetzt aber los: 
Tippen Sie das Listing, speichern Sie das Programm 
sicherheitshalber vorher ab und starten Sie es mit 
RUN. Um die Fehlersuche zu vereinfachen, werden 

am Schluß die wichtigsten Variablen aufgelistet. Zur 
Fehlersuche müssen Sie vorher die Zeile 10220 entfer- 
nen. Nach dem Start erscheint das Titelbild. Die Data 


werden eingelesen, das dauert einige Sekunden. Da- 
nach folgt eine Beschreibung der Ausgangsposition. 
Durch Druck auf die Space-Taste gelangen Sie zum 
eigentlichen Spiel. In der Kopfzeile können Sie Ihren 
derzeitigen Aufenthaltsort und die möglichen Rich- 
tungen ablesen: N = Nord usw. Unter dieser Zeile fin- 
den Sie die Ortsbeschreibung. Lesen Sie sich diese im- 
mer genau durch. Darunter erscheint das Größer-Zei- 
chen >. Wenn dieses Zeichen am Bildschirm erscheint, 
müssen Sie eine Eingabe machen. Zugelassen sind die 
Buchstaben A bis Z, die Cursortasten Rechts und 
Links, die inst/del-Taste, die Space- und die Home- 
taste. Mit der Hometaste setzen Sie den Cursor wie- 
der auf den Zeilenanfang. Pro Befehl stehen 38 Zei- 
chen je Zeile zur Verfügung. Das Programm versteht 
ganze Sätze, Abkürzungen oder Doppelbefehle, die 
durch ein und getrennt sein müssen. Der Befehl muß 
immer als erstes stehen! Beispiel: „gehe bitte in nörd- 
licher richtung“ oder „gehe norden‘‘ oder „geh n“ 

Nur die Himmelsrichtungen können mit einem Buch- 
staben abgekürzt werden. Beispiel Doppelbefehle: 
„benutze den ball und schiesse ein tor‘. Der erste Be- 
fehl wird auch als erstes ausgeführt; also nicht 
„schiesse ein tor und benutze den ball“. 

Jede Befehlseingabe wird kommentiert. Die Aufli- 
stung der Befehle können Sie betrachten, wenn Sie 
„verb“ eingeben oder eine falsche Befehlseingabe ma- 
chen. Drücken Sie nach jeder Befehlseingabe RETURN. 
Mit den Tasten + oder — können Sie die Bildschirm- 
farbe nach Ihrem Geschmack verändern. 


Variablenliste: 
momentaner Aufenthaltsort 


O$(X) = Ortsname 

GP(X) = momentaner Aufenthaltsort eines 
Gegenstandes (—1 ist im Besitz) 

G1;0G;RI = Flag für Gegenstand; Ort; Richtung 

O(X,Y) = Richtungen 

GS(X) = Name des Gegenstandes 

VG$(X) = der Zustand des Gegenstandes 

EG$(X) = die Eigenschaft des Gegenstandes 

0$ = Koordinaten, Gegenstand und 

Ortsstring 

M = Flag für Befehl. 


Außerdem sind die vier KEY-Tasten mit den wich- 
tigsten Befehlen belegt. Norbert Schmelzer 


Zwei Themen — ein Ereignis: 


Hobby-tronie.GORPOERSEHAU 


11. Ausstellung für Funk- 
und Hobby-Elektronik 


Die umfassende Marktübersicht für Hobby-Elektroniker 
und Computeranwender, klar gegliedert: 
In der Westfalenhalle 5 das Angebot für CB- und Amateur- 
funker, Videospieler, DX-er, Radio-, Tonband-, Video- und 
TV-Amateure, für Elektro-Akustik- Bastler und Elektroniker. 
Mit dem Actions-Center und Laborversuchen, 
Experimenten, Demonstrationen und vielen Tips. 

In der Westfalenhalle 6 das Superangebot für Computer- 

anwender in Hobby, Beruf und Ausbildun ung: 

Dazu die Mikrocomputer- a 
die Stände der Computerclubs. 


BE 
— 


Westfalenhallen 
Dortmund 


4. Ausstellung für Computer, 
Software und Zubehör 


3.-7. Februar 1988 


täglich 9-18 Uhr 


Stark verbilligte Sonderrückfahrkarte 

an allen Bahnhöfen der DB 
— Mindestentfernung 51 km außerhalb VRR — 
plus Eintrittsermäßigung. 


Messezentrum Westfalenhallen Dortmund 
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ı MYSTIEA ADVENTURE 
\ 


IB rem mystika 
28 rem (p) commodore welt team 

38 rem ======================5====> 
48 rem (c) by norbert schmelzer 

58 rem 

68 rem 

78 rem version 3.5 

88 rem c16/116/p4 (64 kb) 

98 rem =================5====5==5=5 
k$=chr$( 32) :Kk2$=kK$+K$ 
k3$=kK2$+K$:KA4$=K3$+K$ 
k5$=kA$+tk$:kK$=kK5$+K5$ 

trap 180698 

148 g0t09258 

Tem ------ 2-22 


ren a ee 
188 g0t04988 
print:printan$:an$="":print 
288 gosub5168:vol8 

218 onmgoto480, 1118,1178,728, 1358, 
1980, 2070,2160,2280,2618,180,2929, 
1179,330,669, 1308 


228 rem ------------ 
238 rem anzuenden 

248 rem ------ 
258 ifgp( gi) <>-ithenan$=db$:goto19 
(u) 


268 ifgi=-32andr=25thenan$="das lic 
ht reicht nicht aus”:goto198 

278 ifg1=-29org1=7thenan$="dazu bra 
uchst du etwas !":goto198 

288 ifg1=32thenprint"verbrauche si 
e nicht schon jetzt !":goto198 


298 an$="das geht nicht !!":goto19 
a 

300 Sem ee 
318 rem schneide 

SeRı rem Fr 
33@ ifgi<>3thenan$="Das kannst du 


nicht schneiden!" 

348 ifgp[lg1}=-ithenan$=dd$:goto198 
358 ifgp(g1)<>rthenan$=da$:goto198 
368 an$="Wie mache ich das ??":got 
0198 


ven 
iftr=-@then448 
ifog<>Borri<>Borg1<>Bthen448 
ifz2$<>sh$thengosub5128:got042 


gosub5129:g0t09838 
ifri<>dthen53® 

ifg1<>Bthend49B 
ifo(r,5)=sgandog<>®@then688 
ifog=-23sndr=4then6B8 

an$="da kannst du nicht hingel 
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angen":goto198 

498 ifgp( g1)=-Ithenan$=dd$ 

588 ifgp(g1)<>rthenan$=da$:goto198 
518 ifg1=-380thengosub5128:g0t04228 

528 an$="du stehst in der: naehe !” 
:g0t0198 

538 ifr<>24then578 

548 ifri=1lorri=3then488 

558 ifri=S5thenri=1 

568 ifri=6thenri=3 

578 ifri>4then488 

588 ifo(r,ri)>®thenr=o(r,ri):goto4 
988 

598 goto488 

698 ifr=4andog=23andfr<>1then356® 

618 ifr=-1landog=16andzu<> Ithenan$=" 
die "+g$(23)+" ist geschlossen":go 
to198 

628 r=og:goto4988 

BIU: mem Fersen 
648 
658 dem 
668 ifgi=31andr=26thengoto8964 

678 ifgi=1Bandgp( 18) =-Ithengosub51 
28:g0t04838 

688 an$="das kannst du nicht lesen 


!":g0t0198 

698 rem ------------------------ 
708 rem nehmen 

718 rem -------------------- 
728 ifgp( g1)=-Ithenan$=dd$:g0t0198 


738 ifg1=34andr=28andfs=Bandbo=Ban 
dgp( 34) =34thengosub5128:goto8818 
748 ifgi=®thenan$="das kannst du n 
icht nehmen” :g0ot0198 

750 gw=8:fora=1t035 

768 ifgp(la)=-Ithengw=gw+1 

778 next 

788 ifgp( 38) =-Tandgw> 1then3678 

798 ifgw>2thengoto371B 

888 ifgi=3andgp( 3) =24andr=16then1d 
48 

818 ifgp(g1)<>rthenan$=g$(g1)+da$: 
goto198 

828 ifgi=3andr=24thengosub5128:got 
03578 

838 ifg1=-34andfs=dthenfs=1:gosubS1 
28:g0t09188 

848 ifg1=38andr=25thengosub5128:go 
t0987® 

858 ifgi=34thenfs=1 

868 ifgi=6andgp( 6) =21thengosub5128 
:g0:03738 

878 ifgi=3andr=22thengosubS12ß:got 
03478 

888 ifr=21andgp( 6) <>rthengosub5128 
:g0t03738 

898 ifgi=9andgp( 29) <>randr=19theng 


<fp> 
<ki> 
<pf> 
<In> 


<po> 
<jj? 
<1lm> 
<gh> 
<mb> 
<hm> 


<1f> 
<1k> 
<bg> 


<bk> 
<de> 
<po> 
<jp> 
<fi> 
<ca> 


<ig> 
<lm> 
<mp? 
<fn> 
<bf> 
<dg> 
<pk> 
<fd> 
<kk> 
<aa> 
<im> 
<bi> 
<ap> 
<fj> 
<ej? 
<df> 


<em> 


<1n> 
<kp> 


<jf> 
<fo> 


<of> 


MYSTIKA ADVENTURE 


osub5129:g0t04188 

988 ifgi=2andr=2Bandgpf 1) <>rthenn= 
2:g0osub5128:g0t03948 

918 ifgi=1andr=2Bandgp( 2) <>rthenn=- 
1:gosub5129:g0t03948 

928 ifg1=11thengosub5128:g0t03348 
938 ifg1=S5andr=17andgp( 7) <>rthenn= 
5:gosub5128:g0t04858 

948 ifg1=7andr=17andgp( 5) <>rthenn= 
7:gosub5128:g0t04858 

958 ifgi=14org1=12thengosub5128: go 
t0o3198 

968 ifgi=17thengosub5128:g0t03158 
978 ifgi=29andr=19thengosub5128:go 
to418® 

988 ifgi=-32orgi=250rg1=-29then 1848 
998 ifg1>15andg1<24then 1878 

1888 ifg1>25andg 1<29then 1878 

1818 ifg1=-36then 1278 

1828 ifg1=31then 1878 

1838 ifgi=tandr=4thengosub5S12B:got 
09128 

1848 gplg1)=-1 
1858 an$=g$(g1)+" 
1868 goto188 

1878 an$="soll ich einen sattelsch 


nehmen?? 0.k.!!" 


lepper holen!!":g0t0198 
TB880, ram =-- nennen 
1898 rem sage 
1100: Tem Faser 


1118 ee ho 
ert keiner zu”:goto19B 

1128 ifinstr( z2$,0$(gplx1)))= -athen 
gosub5128:goto4458 


1138 gosub5128:g0t04428 

1148 rem -------—-- 
1158 rem legen/geben 

1168 rem ------------------- 


1178 ifri<>@orog<>dthenan$="wie bi 
tte ?2?7":g0t0198 

1188 ifgp(g1)<>-ithenan$=db$:goto1 
98 

1198 ifr=1lorr=24orr=25orr=18orr=22 
orr=23then1248 

1288 ifr=17and( g1<>5andg 1<>?7)then! 
248 

1218 ifr=2Bandg1<>1then1248 

1228 ifr=19and( gi<>9andg1<>Bandgi< 
>29) then 1248 

1238 g0t01258 

1248 an$="das kannst du HIER nicht 
ablegen !!":g0t0198 

1258 gplgI)=r:an$=g$(g1)+"” 
22 0.k!!" 

1268 goto18® 

1270, rem => ea 3 
1288 rem 
12985 rem Free 


abgeben 


1388 ifg1i=36andr=26andvi=Bthengosu 
b51298:g0t03118 

1318 an$="Hier zerstoere ich nicht 
s":goto198 

1328: ren en 
1338 rem 
I340 rem -- rn 
1358 ifri<>Borog<>@thenan$="wie bi 
tte ??":goto198 

1368 ifgp(g1)<>-Ithenan$=db$:gotol 
98 

1378 ifgi<>34andun=®thenprint:prin 
t"wozu ??":print 

1388 ifgi=4Aandr=23then1718 

1398 ifgi=3andr=16then 1748 

1488 ifgi=2andr=22then 1888 

1418 ifg1i=Bandr=Athen 1838 

1428 ifg1=25and( r=iorr=16) then 1868 
1438 ifg1=5then 1988 

1448 ifg1i=7orgi=32org1=29then1778 

1458 ifgi=34andr=28then 1538 

1468 ifgi=15andr=26then 1688 

1478 ifg1i=13andr=26then 1578 

1488 ifg1=353andr=26then 1558 

1498 g5=g1:gosub516® 

1588 ifm=9then2288 

1518 ifm=16and( r=260rr=17) then31B® 
1528 an$="das ist jetzt nicht moeg 
lich !!":g0t0198 

1538 ifgp( 38) =-1then4658 

1548 gosub5128:g0t08928 

1558 gosub5168:ifm-15thenprint:got 
08988 

1568 goto1528 

1578 gosub516® 

1588 ifm=16andg 1=36thengp( 35) =26:g 
osub5129:g0t03858 

1598 goto1528 

16988 gosub5169:ifm<>8then 1528 

1618 ifsu=ithenprint”das geht nich 
t 1":got0198 

1628 ifg1=-28thensu=1:g0t01648 

1638 goto1528 

1648 gp( 15) =26:r=8 

1658 gosub5128:print"durch dein ge 
wicht bricht der morsche"” 

1668 printg$( 15)” in 1888 stuecke. 

mit viel glueck" 

1678 print"erfasst du noch das "g$ 
(28) "kreuz,ziehst" 

1688 print"dich hoch,und gelangst 

ins freie." 

1698 g$( 15)="holzhaufen ":vg$( 15) = 
"ein ehemaliger stuhl":0(26,3)=8:e 
g$( 15) ="ein" 

1788 mid$(ko$,84,3)="hol":goto198 

1712 gosub5168 

1728 ifm=7andg1=18then3788 


<mi> 


<pp> 
<dh> 
<ol>. 
<eb> 


<ci> 
<pd> 


<nl> 
<gl> 
<jm> 
<dc> 
<lc> 
<eb> 
<ob> 
<cn> 
<on? 
<kf> 
<cc> 
<mi> 
<hj> 
<on> 
<dc> 


<bk> 
<la> 
<am? 


<ia> 
<ep> 
<oe> 


<mf> 
<ac> 
<ib> 


<ji> 
<io> 
<ah> 
<ah> 
<ma?> 
<ih> 
<ik> 
<ba> 
<go> 
<bb> 


<ha> 
<jc? 
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1738 g0t01528 
1748 gosub5168 


1758 ifm=-8andog=24thenr=24:gp[l3)=2. 


4:gosub5128:g0t04598 

1768 g0t0o1528 

1778 gosub5168 

1788 ifm=17andg 1=7andr=25thenla>=3: 


an$="o.k sie leuchtet !":goto188 
1798 an$="das nuetzt dir hier nich 


ts!":goto198 

1880 gosub5168 

1818 ifm=-14andg1=3thenme=1:gosub51 

20:g0t04538 

1828 g0t01528 

1838 gosub5168 

1848 ifm=-7andg1=27thenvg$( 27) ="es 
ist geoeffnet":g0t09178@ 

1858 goto1528 

1868 gosub5168 

1878 ifm=7andg 1=23andr=1iandzu=@the 

nan$="von aussen geht ’s nicht !!": 

goto198 

1888 ifm=7andg 1=23thenvg$( 23) ="sie 
ist geoeffnet":gosub5128:g0t04558 
1898 g0t01528 

1988 gosub5168 

1918 ifm<>8then 1528 

1928 ifgi=28andr=26thengosub512B:g 
0t03268 

1938 iflog=-160rog=26) andr=1thengp( 
5)=1:print:goto4498 

1948 goto1528 

1950 fen === 
1968 rem 
1970 mem 
1988 gosub5128:print"du traegst:": 

c=8 

1998 fora=1t035 

2088 ifgpla)=-ithenprinteg$la)"” "g 

$la):c=i 

2818 next 

2828 ifc=dthenprint:print"nur die 

Last des alltages" 

2838 c=98:g0t0198 

2ua0 zum 

2858 rem 

2B6B rem --------------- 

2078 ifg1=27andr=4andfr=dthen3568 
20888 ifg1=23and( r=1i6orr= N angzur et 
henan$=eg$( g1) 

2898 ifgi=18andr=23andgr= Othengosu 
b5128:g0t04988 

2188 ifgi=28andr=26thenan$="es ist 
geoeffnet":goto198 

2118 ifgp(g1)<>rthenan$=da$:goto19 
4) 


2128 an$="das kann man nicht oeffn 
en !":goto198 


<jc? 
<cn> 


<od> 
<fg> 
<oj? 


<co> 


<eo> 
<mf> 


<if> 
<op> 
<ib> 


<oj? 
<kd> 
<dj> 


<pf> 


<ol> 
<ke> 
<di> 
<cj? 


<bm> 


<fh> 
<po> 
<cb> 
<hm> 
<ce> 


<ib> 
<pn> 


<ig> 
<ef> 
<dc> 
<ni> 
<ek> 
<em> 
<en> 
<nl> 


<jg> 
<ai> 
<kl> 
<md> 


<pi> 


2138 rem ---------------- 

2148 rem 

2150: ram en 

2168 ifgi=-28andr=26thenan$="das is 
t zu hoch”:goto198 

2178 ifg1=26and( r=4orr=1)thenan$=" 

das ist zu hoch"”:goto198 

2188 ifr<>16andr<>1then2238 

2198 ifog=16andgp( 5) =Tandr=ithenr= 
16:g0t0188 

2288 ifog=16andr=1thenan$="die oef 

fnung ist zu hoch!"”:goto198 

2218 ifog=24andgp( 3) =24andr=16then 
r=24:g0t04988 

2228 ifog=24andr=16thengosubS12B:g 

0:03578 

2238 ifri<>@thenan$="wie bitte ?77 
":g0t0198 

2248 an$="da kannst du nicht. hinkl 

ettern”:g0t0198 

2250, Ve ee 

2268 rem 

2290 Lan Far nn 

2280 x$="des "rg$lgN)+"sn: y$="sein 

e ":n$="seiner ":m$="der ":print 

2298 ifr=19andgi=21then2348 

2388 ifr=17andg 1=19then2348 

23180 ifr=2Bandgi=28thenx$="der "+g 

$(g1):y$="ihre ":n$="ihrer ":m$="d 

ie ":goto2348 

2328 ifr=21landg1=22then2518 

2338 an$="wie bitte ??":g0t0198 

2348 ifg5then2488 

2358 print"du legst die haende um 

den hals "x$ 

2368 print"und drueckst brutal zu. 

du” 

237@ print"siehst,dass langsam "y$ 
"kraefte"” 

2388 print"nachlassen.-zu spaet be 

merkst du das” 

2398 printg$(2)" in 

02458 

2408 print"leise schleichst du dic 

h in den ruecken,"” 

2418 printx$"” mit dem "g$(g5)"” in 

der hand.” 

2428 print"ploetzlich dreht "m$" " 

g$[g1) . 

2438 print"sich um und schaut dir" 

2448 print"tief in deine erstaunte 
n augen." 

2458 print"du spuerst nur noch ein 

en qualvollen" 

2468 print"stich und stuerzt mit e 
inem gellenden"” 

2478 print"schrei zu boden.wie aus 
weiter ferne” 


"n$"hand.":got 
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2488 print"hoerst du noch die wort 
e:’er haette es" 

2498 print"einfäacher haben koennen 
It’ dann" 

2588 print"schliesst du fuer immer 
deine augen.":goto4918 

2518 print”der hund hat deine fein 
dliche absicht" 

2528 print"erkannt.mit einem gross 
en satz springt" 

2538 print"er dich an.mit letzter 
kraft versuchst" 

2548 print"du,ihn abzuwehren.doch 
es nuetzt nichts” 

255@ print"mit einem gurgelnden la 
ut stuerzt du” 

2568 print"zu boden.dabei zerfleis 
cht er dir” 


257@ print"die kehle.":g0t04918 
2588 rem —- 
2598 rem frage 

26008 rem; == 


2618 ifgi=2Bandr=28then2748 

2628 ifgi=21andr=19then2778 

2638 ifgi=19andr=17then2698 

2648 ifgi=22andr=21thenan$="WAU WA 
U !!":am$=z$:g0t0198 

2658 ifg1<>Bandgp( g1)=rthenan$="ge 
genstaende antworten nicht!":am$=g 
$(g1) :g0oto198 

2668 ifri<>Bdorog<>dthenan$="wie bi 
tte !!":gotot228 

2678 ifgp(lg1)<>rthenan$=da$ 

2688 goto198 i 

2698 ifgp([5)<>rthengosub5128:goto4 
168 

2788 ifgp(5)=randgp( ?) =rthengosub5 
128:g0ot0415® 

2718 ifgpl ?)<>rthen2738 

2728 gosub5128:g0t04158 

2738 gosub5128:g0t04128 

2748 ifgp( 1) <>rthen2768 

2758 gosub5128:g0t04828 

2768 gosub5128:goto4B18 

2778 ifgp( 29) <>19then2798 

2788 gosub5128:g0t04158 


2798 gosub5128:g0t03398 

2800. rem <-———— e 
2818 rem sehen 

2820 nem Fer 
2838 c=®:print"du siehst :" 

2848 fora=1t036 

2858 ifgp(a)=rthenprinteg$(la)" "g$ 
(a) :c=1 

2868 next 

2878 ifc=®thenprint"nichts auffael 
liges"” 


2888 goto198 


<og> 
<fj> 
<ko> 


<kd> 


<kb> 
<oj? 
<nh> 
<ko> 


<jg> 
<hg> 
<im> 
<1j> 
<an? 
<od> 
<na> 
<fi> 


<po> 


<jo> 


<aa> 
<ag> 
<nl> 


<mm?> 


<hl> 
<ap> 
<ol> 
<na> 
<oa> 
<po> 
<bn> 
<de> 
<aj? 
<fb> 
<le> 
<el> 
<ii> 
<bk> 
<oj? 


<jg> 
<pa> 


<jd> 
<fo> 


2898 rem -------------- > 
2988 rem 
2918 rem ---------------- 77777 
2928 ifri<>Borog<>Borvg$(g1)=""the 
n2978 

293@ ifgp(g1)=-1then2968 

2948 ifgp( gi) <>rthenan$=da$:goto19 
8 

2958 ifg1=29andr<>4then2978 

2968 an$=vg$(g1) :goto19® 

2978 an$="nichts besonderes zu ent 


decken" :goto198 

2980. rem + 
2998 rem verschiedene ereignisse 
3pBB rem Fre 


3818 print"du entledigst dich dein 
er kleider und" 

3828 print"springst in die ruhige 

see.mit kraef-" 

3838 print"tigen armbewegungen str 
ebst du dem fest-" 

3848 print"land entgegen."”:got0o887 
[4 

3858 ifvi=ithenprint:print"es ist 

schon alles kaputt !":goto198 

3868 vi=1 

3878 print"mit gezielten "g$(13)"s 
chlaegen zer-" 

3888 print"stoerst du die glassche 
iben der" 

3898 print"kommode.im innern entde 
ckst du eine...":goto198 

3188 print"mit dem "g$(g5)" zersch 
laegst du die"”:g0:03128 

3118 print"mit blosser hand zertru 
emmerst du die" 

3128 print"scheiben.ein grosser sp 
litter zerschnei-" 

3138 print”det dir die pulsadern.M 
it aschfahlen" 

3148 print"gesicht sinkst du zu bo 
den und stirbst":goto4918 

3158 print"der "g$(g1)" beginnt zu 
schwanken, immer mehr" 

3168 print"stuck broeckelt ab-ploe 
tzlich-" 

3178 print"bricht er zusammen und 

begraebt dich" 

3188 print"”unter seinen truemmern! 
":g0t04918 

3198 print"du nimmst diesen gegens 
tand an dich" 

3288 print"und drueckst ihn liebev 
oll an deine” 

3218 print"wogende brust.den schre 
i ’diebstahl’" 

3228 print”hoerend,den schweren du 
mpfen schlag" 
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323@ print"spuerend und das leblos 
e niedersinken" 


3248 print"war das einzige,was dic 


h an deinem" 

3258 print"triumph stoerte!!":goto 
4918 

326@ print"du stellst die "g$(5)" 
unter das fenster.” 

3278 print"beim hochklettern ueber 
siehst du die" 

3288 print"fehlende sprosse.mit ei 
nem gellenden” 

3298 print"schrei stuerzt du zu bo 
den-und schlaegst" 

3388 print"mit dem schaedel auf de 
m muehlstein auf." 

331@ print"dadurch bricht der mueh 
lstein.den kann" 

3328 print"man nun nicht mehr benu 
tzen-dich ereilt"” 

3338 print"das gleiche schicksal!" 
:g0t04918 

3348 print"den guten geschmack und 
das mandel-" 

3358 print"artige aroma,war das le 
tzte was dein” 

3368 print"”gehirn registriert -dan 
n brichst du” 

337@ print"unter qualvollen schmer 
zen zusammen.” 

3388 print:printtab( 13) "zZYANK 
AL I":goto4918 

3398 ifgp(8)=rthenprint"den "g$(8) 
" kannst du dir nehmen."”:goto198 
3488 print"was willst du denn jetz 
t noch?" 

3418 print"ich gebe dir nichts meh 
r !..oder doch!!" 

3428 print"wenn du mir einen gegen 
stand besorgst" 

3438 print"und zwar-schau dich mal 
um!" 

3448 print"hier fehlt etwas in der 
kirche, etwas,” 

3458 print"das in jeder kirche vor 

handen ist." 

3460 goto198 

3478 print"du kletterst auf die he 

nkerstaette und" 

3488 print"versuchst das "g$(g1)” 
zu loesen.irrtuemlich" 

3498 print”beruehrst du den hebel 

der falltuer,du” 

3588 print"versuchst dich noch am 
"s$(3)" festzuhalten" 

3518 print"-aber es nuetzt nichts. 

Du geraetst beim” 

3528 print"sturz mit dem kopf in d 


ie schlinge,"” 

3538 print"polternd und mit einem 

gellenden schrei" 

3548 print"faellst du ins bodenlos 

e."”:goto4918 

3558 goto4918 

3568 print:print"der friedhof ist 

heute geschlossen” :goto198 

3578 print"losgerissene steine pra 
sseln herunter," 

3588 print"langsam tastest du dich 
stein fuer” 

3598 print"stein tiefer! 

3688 print"zu spaet bemerkst du di 

e lockere stein-"” 

361@ print"reihe.mit deinen haende 

n greifst du " 

3628 print"ploetzlich ins leere.Mi 
t einem gel-" 

3638 print"lenden schrei,schlaegst 
du auf den boden" 

3648 print"des brunnens auf.ueber 

dir bricht das” 

3658 print"ganze gestein herunter- 
und verschuettet" 
3668 print”dich bei lebendigen lei 
b.":goto4918 

367@ print:print"du fasst dich an 
dein herz.mit einem" 

3688 print"qualvollen blick sackst 
du zusammen und” 

3698 print"stirbst,die "g$(38)" fe 
st an dich pres-" 

3788 print"send,einen schmerzvolle 
n tod" :goto4918 

3718 print:print"du traegst schon 
zuviel.denk an deinen” 

3728 print"kreislauf!HERZINFARKT d 
roht!.":goto198 

3738 print""’das ist aber ein liebe 
r hund’denkst" 

3748 print"”du,als du ihn auf dich 
zulaufen siehst." 

3758 print”deine meinung aendert s 
ich radikal," 

3768 print"als du bemerkst, dass e 
r dir die" 

3778 print"kehle zerfleischt.":got 
04918 ’ 

3788 ifgr=1thenprint:print"Die "g$ 
(g1)” ist bereits geoeffnet !":got 
0198 

3798 ifgp( 9) <>-ithenkr$="den "+g$( 
4) :c=1:g0ot0o3818 

3808 vg$l 18)="sie ist geveffnet":c 
=8:kr$="das "+g$(9) :gpl?)=23 

3818 gr=1:gosub5128:print"als du d 
en ersten spatenstich tust," 
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3828 print"spuerst du einen heisse 
n atem in" 

3838 print"deinem nacken.graf drac 
ula steht " 

3848 print"hinter dir.mit einem au 
fschrei des ent-" 

3858 print"setzens haeltst du ihm 
"kr$:print"entgegen.”" 

3868 ifc=1then3988 

3878 print”durch den anblick geble 
ndet" 

3888 print"”stuerzt er nieder -und 
ward nie":print"wieder gesehen!" 
3898 print”du findest etwas in der 
gruft!":goto198 

3988 print"schaurig lachend nimmt 
er dir" 

3918 printkr$” aus der hand,zerbri 
cht ihn und” 

3928 print"”stuerzt sich auf dich, 
wobei er dich" 

3938 print"bis auf den letzten blu 
tstropfen aus-":print"saugt.":goto 
4918 

3948 print"heimlich steckst du dir 
das "g$(n) 

3958 print"unter deinen mantel.HEI 
MLICH ?? denks’te" 

3968 print"-die "g$(28)" packt dic 
h und mit einen wun-" 

397@ print"derschoenen drei-fachen 
axel gehst du” 

398@ print"zu boden -wenn nur nich 
t dein genick so":print"zerbrechli 

ch waere !!"” 

3998 goto4918 

48088 print"Mit blossen haenden kan 

n ich die "g$(g1):print"auch nicht 
oeffnen !":g0t0198 

4818 print"alles, was unter 28 tal 

er ist,":print”bekommen sie umsons 
| 0. 

4828 print"nehmen sie sich, WAS si 

e brauchen!":goto198 

4838 print"In der "g$(g1)" steht:"” 
:print” "schon wieder graeber gesch 

aendet ’" 

4848 print" "nibelungenschatz in un 
serer stadt ???'":g0t0198 

4858 print"auf zehenspitzen schlei 

chst du dich" 

4868 print"an die "g$(g1)” heran,n 
immst sie unter" 

4878 print"den arm und schreitest 
gelassen zur" 

4888 print"treppe.-in diesem momen 
t trifft dich der” 

4898 print"zorn des "g$( 19)" -in f 


<pa> 
son? 
<nl> 


<gc? 
<fp> 


<fi> 
<mh> 
<je> 
<jh> 
<nk> 


<pb> 


<ml> 
<mo> 
<of> 
<dl> 
<bc> 


<jd> 
<ge> 


<ob> 


<bm> 


<eo> 


<ka> 
<kp> 
<fn> 
<aj> 
<jn> 


<ne> 


orm einer gewor-" 

4188 print”fenen axt.-die "g$lg1)"” 
an dich" 

4118 print"pressend, sackst du leb 

los zu boden !":goto4918 

4128 print:print"der "g$(g1)"” sagt 
‚ wenn sie mir” 

4138 print"eine "g$(7)"” besorgen,b 

ekommen sie":print"auch das, WAS s 

ie brauchen." 

4148 goto1i98 

4158 print"er sagt: ’nimm dir, WAS 

du brauchst !”:goto198 

4168 print"er sagt: ’die "g$(7)"” be 

kommst du” 

4178 print"nur, wenn du mir die "g 

$(5)":print"zurueckbringst !":goto 
198 

4180 print"”du hast das "g$(g1)"” bl 
itzschnell"” 

4198 print"in deine tasche verschw 
inden lassen," 

4288 print"als dich der "g$(21)" p 

ackt und auf den" 

4218 printg$( 17)” wirft !":goto315 

4) 

4228 print"langsam tastest du dich 
in der dunk-" 

4238 print”len kammer voran, unabl 

aessig" 

4248 print”auf die "g$(38)" starre 

nd !" 

4258 print"doch- ploetzlich -..... 


4268 print"du bist vom weg abgekom 
men!die morschen" 

4278 print"bretter geben nach und 
du faellst in die” 

4288 print"tiefe.":goto4918 

4298 ifx1=7thenx1=6 

4388 ifgp( x1)=-iorx1=11thenx1=16 
4318 Fora=1to1d:sound3,888,5:next 
4328 print"verdammt, wir sind in e 
ine hinterhalt"” 

4338 print"geraten !-eine raeuberb 
ande- sie haben" 

4348 print"MICH gefangen genommen 
!sie lassen mich" 

4358 print"nur dann frei ‚wenn du 
ihnen den auf-"” 

4368 print"bewahrungsort des folge 
nden gegenstandes”" 

4370 print"nennst.sie suchen "eg$( 
x1)” "g$Cx1) 

4388 print”deine bewegungsmoeglich 
keiten sind” 

4398 print”nur noch auf ’GEHE und 
SAGE" :b2$=bf$:bf$=kK3$+"geh sag”:ue 
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=1 
4488 ifo(26,3)=®theno( 26,3) =8:rb=1 


<oc> 
<dk> 


4418 print"beschraenkt.hilf mir bi 


tte !1":poke239,9:goto198 

4428 ifrb=1ithenrb=9:0( 26,3) =® 

4438 print"PRIMA!das stimmt !sie h 
aben sich aus " 

4448 print"dem staub gemacht!ich b 
in wieder FREI":bf$=b2$:ue=d:goto1 
98 

4458 print"SCHEI.. 
erzt sich der" 
4468 print”anfuehrer der bande auf 
dich und schreit" 

4478 printz2$"! HA HAles war ":pri 
nto$(gp(x1)) 

4488 print"schade.aus dir haette n 
och etwas wer-":print"den koennen! 
":g0t04918 

4498 print"”du stellst die 

an die "g$[ 26)” und" 

45808 print"kletterst vorsichtig em 
por.durch das" 

4518 print"loch in der 
ickst du erwartungs-" 

4528 print"voll in die "o$( 16)” hi 

":r=16:g0t0198 

4538 print"du nimmst das "+g$(2) +" 
und schneidest" 

4548 print"hastig das "+g$(g1)+"” d 
urch":gp(3)=-1:g0t0198 

4558 ifzu=1thenprintvg$( 23) :goto19 
8 

4568 print"du steckst die "g$(25)" 
auf den vierkant":zu=1:gp(25)=r 

4578 print"und drehst langsam die 
"s$( 25) "-knar-" 

4588 print"rend oeffnet sich die " 
g$lg1) :goto198 

4598 print"du trittst an den "0o$(2 

4)" heran, be-" 

4688 print"festigst das 

d kletterst vor-" 

4619 „BEImE WErRbig in den 

":g0t0198 

4620 run ee ——— 

4638 rem 

4640. Lem === nennen 

4658 scnclr:char1,8,18,"" 

4668 print"du steigst in das boot 
und bis zur" 

4678 print"totalen erschoepfung ru 
derst du ueber" 

4688 print"den see.- am ufer siehs 
t du noch die" 

4698 print"drohenden gebaerden der 
feindlichen ein-"” 

4788 print"wohner-kurz vor der lan 


.!voller wut stu 


"g$l5)" 


"s$(26)” bl 


"s$(3)" un 


"o$( 24)" 


<j1> 
<ck> 


<me> 


<lk> 
<np> 
<an> 


<fl> 


<nf> 
<am> 
<ho> 
<jp> 
<pd> 
<co> 
<ho> 
<ai> 
<fk> 
<jo> 
<ef> 
<hi> 
<eb> 
<hf> 
<im> 
<jj> 
<an> 
<ah> 
<oj> 
<fm> 


<bc> 


<ie> 


dung am rettenden" 

4718 print"festland beginnt der se 
e wieder zu” 

4728 print"kochen und brodeln. mit 

letzter kraft" 

4738 print"springst du aus dem boo 
t,die "g$( 38)" 

4748 print"fest unter dem arm,als 

du bemerkst," 

4758 print"dass die insel wieder i 
m see versinkt.” 

4768 print"ermattet legst du dich 

nieder und -" 

4778 print"schlaefst ein......... e 
4788 poke239,@:getkeya$:scenelr:cha 
r1,0,6,"" 

4798 print” als du wieder zu dir ko 
mmst, bist du" 

4888 De SEE ER alles do 
ch nur ein TRAUM?" 

4818 print"du sitzt vor dem monito 
r,der computer" 

4828 print"ist noch. eingeschaltet, 


4848 print"-die "g$(38)"!-du sprin 
gst auf,brichst sie" 

4858 print"auf und- sie ist bis zu 
m rand mit gold-" 

4868 print"stuecken gefuellt.mit d 
iesem vermoegen" 

4878 print"gruendest du eine SOFTW 
AREFIRMA und” 

4888 print"schreibst deine ADVENTU 
RES jetzt selber." 

4898 print"Und wenn du nicht gesto 
rben bist so" 

4988 print"schreibst du auch noch 
heute." 

4918 print:print” NA! noch einmal 
ein ABENTEUER ?":poke216,co 

4928 poke239,8:getkeya$:ifa$="n"th 
enscnelr:clr:end 

4938 ifa$="j"thenrun 

4948 g0t04928 

4950 ren + me 
4968 rem 
4978 rem --------- Dee 
4988 scnelr 

4998 p$="":color1,2,6 

5888 ifr=24thenp$="":goto5848 

SB1B fora=1t04:1$="" 

5828 ifo(r,s)>Bthenl$=mid$(w$,a, 1) 
5838 p$=p$+1$:next:char1,8,8,"" 
5848 char1,8,8,ro$+k$+k$+k$+k$:cha 
r1,8,8,r0$ 

5858 print" "o$(r)tab(21)"richtung 


<ma> 
<df> 
<cc> 
<fh> 
<gh> 
<el> 


<il> 
<fb> 


<nh> 
<pp> 
<nm> 
<hn> 
<bc> 
<ng> 
<pm> 
<oh> 
<pg> 
<bm> 
<db> 
<ip> 
<fj> 
<el> 
<cc> 
<od> 
<ip> 


<jm> 
<jj? 
<ea> 
<ph> 
<op> 
<jk> 
<bi> 
<ae> 
<jh> 


<bk> 


« 


MYSTIKA ADVENTURE - 8 = 


en:"p$ra$:print:print:poke2822, 1 <ne> 5498 ifj>37then5288 <pe> 
5868 ifr=34thengosub5128:goto3B1ß <he> 5508 x$=mid$( z$,j) :x$=left$lx$,38- 

5878 on r goto 5998, 6170,6258,6338 Jj) :mid$( z$,j,1)=" " <hn> 
‚6430,658®,8928,6558 <oc> 5518 mid$( z$, j+1)=x$:char1,@+j+1,c 

5888 onr-Bgot0669®#,67580,6800,684B, z,x$ <nd> 
6898, 6978 <fk> 5528 goto5288 <eo> 
5898 onr-14g0t08708,7220,7368, 7528 5538 rem ---------- 22 <pd> 
‚7758,7640,7920,6610,8100,8218,834 5548 rem cursor right <cj? 
0,8588 a if 5550 rem -- me mn <nf> 
5188 onr-26g0t07138,78040 <al> 5568 ifj<38then j=j+1 <bce> 
5118 goto8788 <oe> 5578 goto5288 <ie> 
5128 print:print:return <fc> BEA0 ram Zaun nenne <nb> 
BISB Du Free iger <im> 5598 rem return gedrueckt <jb> 
5148 rem eingaberoutine <oe> SB rem ------------------- <ga> 
515 rem > <an? 561B z$=z$+k2$ <eg> 
5168 ifun=ithenun=8:g0t05638 <ka> 5628 u=1 <de> 
5178 cz=peek( 285) :j=1:2$=z9$:poke2 5638 poke2822,1:color1,2,6:ri=®:g1 

39,8 <ih> =@:0g=@: j=1:print <bk> 
5188 chari,8,cz,">" <di> - 5648 l=instr(z$," "):iflen(z$)<4th 

5198 color1,7,7:color4,co,2:color® en5678 <oh> 
‚co,2 <1j> 5658 ifl<4thenz$=right$( z$,len( z$) 

5288 chari1,8+j,cz,ro$+tmid$(z$,j,1) -1) :g0t05648 <lc> 
+ra$ <oe> 5668 z=instr(z$,"und")+4 <pd> 
5218 getkeyq$:in=instr(v$,q$) <ad> 5678 m=instr(bf$, left$(z$,3)) /A:if 

5228 ifg$="-"thenco=co-1:ifco<Ithe m=@then5918 <gf> 
nco=1 <bg> 5688 ifm=-6orm=1ithenreturn <no> 
5238 ifq$="+"thenco=co+1:ifco>16th 5698 z2$=mid$( z$,1+1) :k=instr( z2$, 
enco=16 <nm? k2$) <1f> 
5248 ifin=dthensound], 388,5:goto51 5788 z2$=1l1eft$( z2$,k-1) :c=len( z2$) 

90 <hl> :ifc<3then5868 <ii> 
5258 sound1,988,4 <1h> 5718 x=1:fora=itoc <ji> 
5268 char1,@+j,cz,mid$( z$,j,1) <jc> 5728 1$=mid$( z2$,a,1) <go> 
5278 oningoto5348,5388,5568,5618,5 5738 ifl$=" "thenx=x+1:ifx>1@thena 
430,5498 <hd> n$="der satz verwirrt mich !!":got 

5288 mid$(z$,j,1)=q$ <an> 0198 <ch> 
5298 char1,8+j,cz,qg$:ifj<38thenj=j 5748 if1$<>" "thenr$( x)=r$(x)+1$:t 

+1 <dc> est$(x)=r$(x) <fj> 
5308 g0t05288 <ka> 5758 next <jl> 
said rem --------- nm <ib> 5768 fora=itox <ob> 
5320 rem home-taste gedrueckt <gi> 5778 ifri=®thenri=int(instr(ko$,le 

I BEER <pc> ft$lr$(la),3)))/a <ca> 
5340 j=1:g0t05200 <cc> 5788 ifr$(a)="und"thenun=1:z$=mid$ 

5350 ram Fa <le> (z$,z) <gn> 
5360 rem ceursor left <he> 5798 r$(a)="":next:ifri=54thenog=3 

53m rem <md> 4:ri=@:return <nn> 
5388 ifj>ithenj=j-1 <db> 5848 ifri>42thenog=ri-27:ri=®:retu 

5398 goto5288 <pp> rn <go> 
5aa0 ren Ferne <dh> 5818 ifri>6theng1=ri-6:ri=®:return <fh> 
5418 rem delete <jp> 5828 ifri>@thenreturn <am> 
5a20 ven nn <eb> 5838 ifm=-1orm=4orm=12thenreturn <cc> 
5438 ifj=1then5288 <ie> 5848 print:print"das verstehe ich 

5448 mid$( z$, j-1)-mid$( z$, 5) :mid$( nicht !!":print <gg> 
2$,38,1)=" ":34=3J-1 <ce> 5858 goto5168 <kj> 
5458 char1,8+j,cz,mid$(z$, j) :goto5 5868 ri=instr(w$,z2$) :ifri=®then58 

208 <cj? 38 <fd> 
Saon Lan ne <jm> 5878 return <jg> 
54780 rem insert <pd> 5888 rem ----------------------- <md> 
H4b0 zem Fe <ea? 5898 rem abfangen falscher befehle <ci> 
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5988 rem 
5918 ifue=1andlen(bf$) <12then:prin 


t"NUR gehe ,sage!!!!":print:gotoS16 - 


1) 

5928 print:print"BEFEHLE sind:":pr 
int"gehe, sage, lege,nehme, toete,ben 
utze," 

5938 print"oeffne,klettere,sehe,pr 
uefe, frage,gebe," 

5948 print"inventur,lese,zerstoere 


‚schneide zuende.":print 

5950 goto516% 

5960 ran rn nn 
59780 rem ortsbeschreibungen 
598: stem nn 
5998 print:print"du stehst vor der 


erhabenen burg des" 

6888 print"grafen von hohenfels." 
6818 print"die duesteren mauern di 
eser alten" 
6828 print"burg stossen dich ab.do 
ch deine ueber-" 

6838 print"legung, dass hier der s 
chluessel zum" 

6848 print"reichtum verborgen lieg 
t, ist nicht so" 

6858 print"abwegig.":ifka=ithenka= 
@:g0t06188 
6868 ka=1:print"”ein eiskalter scha 
uer laeuft"” 
6878 print"dir ueber den ruecken, 
als du den” 
6888 print"schrei eines kaeuzchens 

vernimmst.." 
6898 print"REISS dich zusammen !" 
6188 print”ich schau mich mal um! 
also" 
6118 print”ich sehe ein grosses lo 
ch in der mauer!"” 
6128 print"”es ist nur sehr hoch !"” 
6138 ifgp(5)=rthenprint"eine "g$(5 
)" steht darunter ." 
6148 print"die "g$(23)"-"vg$( 23) 
6158 print"sonst ist nichts besond 
eres zu entdecken":gp( 26) =r 
6168 goto198 
6178 ifgp( 38) =-ithenprint"BEEILE d 
ich,die einwohner verfolgen dich" 
6188 print"du stehst vor einem zer 
fallenen geb-" i 
6198 print”baeude.zwischen den zer 
streuten stein-" 
6288 print"brocken entdeckst du ei 
n schild mit" 
6218 print"der aufschrift ’ZUM GOL 
DENEN ANKER’ ." 
6228 print"anscheinend war diese r 
uine frueher ein" 


<ok> 
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6238 print"hotel. rechts von dir s 
iehst du den" 

6248 print"eingang zu einem keller 
.":g0t02838 

6258 gp(26)=r:print"du stehst vor 
einer kleinen blockhuette"” 

6268 print"rechts und links stehen 
abgebrochene" 

6278 print"baeume,anscheinend schl 
aegt hier oefters" 

6288 print"der blitz ein.der einga 
ng der block-" 

6298 print"huette wird von einer k 
srierten decke" 

6388 print"verhangen.die stadtmaue 
r ist hier noch" 

6318 print"sehr gut erhalten” 

6328 g0t02838 

6338 gp(26)=r:print:print"eine alt 

e kirche (gotik) steht er-" 

6348 print"haben vor dir.die runde 

n bogenfenster" 

6358 print”sind sehr bunt verglast 
.an die kirche" 

6368 print"grenzt die hohe friedho 

fsmauer.”" 

6378 print"das tor ist aus metall” 

6388 printvg$( 27) :gpl27)=r 

6398 ifgp( 1)=rthenprint"hinter ein 

em busch siehst du":goto641® 

6408 goto2838 

6418 printeg$( 1)" "g$L1)” Liegen," 

6428 print"das muss wohl jemand ve 
rloren haben" :g0t02838 

6438 print:print"das geschaeft das 
im schatten einer" 

6448 print"riesigen kastanie,vor d 
ir liegt, sieht” 

6458 print"noch gut erhalten aus.d 
urch die ver-" 

6468 print"gilbten gardinen siehst 
du eine frau" 

6478 print"hinter der theke stehen 
.sie macht sich" 

6488 print"gerade an den leeren re 
galen zu schaf-"” 

6498 print"fen.":goto2838 

6588 print:print"”die gaertnerei ha 
t frueher der familie" 

6518 print"des grafens gehoert.im 
hintergrund” 

6528 print"siehst du die grossen t 
reibhaeuser" 

6538 print"mit den gekalkten schei 
ben.von innen” 

6548 print”her hoerst du einen hun 
d bellen":g0t02838 

6558 print:print"majestaetisch ste 
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ht sie da,die alte" 

6568 print"muehle mit ihren maecht 

igen fluegeln,” 

6578 print"die sich scheinbar im w 

ind drehen." 

6588 print"wieviele menschen haben 
ihr brot davon" 

6598 print"bezogen?":ifue=3thenpri 

nt"es faengt an zu regnen." 

6688 goto2838 

6618 print:print"hier muss wohl ei 

n unbarmherziger" 

6628 print"henker sein werk vollbr 

ingen ." 

6638 print"”der galgen steht noch s 

chaurig,"” 

6648 print"knarrend im hof ." 

6658 ifgp[ 3) =22thenprint”das seil 
schwankt im wind" 

6668 print"die hohe mauer um-" 

6678 print"grenzt den gesamten gef 

aengnishof.":gp( 26) =r 

6688 goto198 

6698 print"die alten pflasterstein 

e der kirch-" 

6788 print"strasse sind noch sehr 

gut erhalten." 

6718 print"wenn du nach oben schau 
st, siehst du” 

67286 print"die turmspitze der alte 

n dorfkirche.” 

6738 bo=B:ifbo=Bandfs=Bthengp( 34) = 

34 

6748 g0t02838 

6758 gp(26)=r:print"”du stehst vor 

der alten stadtmauer.durch” 

6768 print"”herausgefallenes gestei 

n kannst du die" 

6778 print"felsige uferboeschung d 

er see erblicken” 

6788 print"wenn du nach sueden bli 

ckst, erkennst"” 

6798 print"du die turmspitze der a 
lten kirche.":g0t02838 

6888 print"der stadtweg stellte in 
kriegszeiten" 

6818 print"immer eine schnelle ver 

bindung zum hafen"” 

6828 print"dar.jetzt kann er durch 
die umgefallenen"” 

6838 print"baeume sehr schlecht be 

gangen werden" :g0t0283@ 

6848 gp(26)=r:print"die suedliche 
stadtmauer wurde durch ein” 

6858 print"tor unterbrochen.dieses 
tor liegt, wenn" 

6868 print"”du richtung sueden blic 
kst,in truemmern" 


<ff> 
<bd> 
<gb> 
<ib> 


<bh> 
<mn?> 


<ig> 
<1p> 


<lp> 
<ea> 


<oa> 
<ha> 


<ga> 
<nc> 


<lo> 
<mc> 
<if> 
<aj? 


<nl> 


<fl> 


<pk> 
<og> 
<of> 
<pa> 
<do> 
<di> 
<do> 
<hb> 
<kj?> 
<nn> 
<nj> 


<pm> 
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6878 print"vor dir.durch die umges 

tuerzten saeulen" 

6888 print"siehst du den see.":got 

02838 

6898 print"du stehst vor einem gro 
ssen tor." 

6988 print"”es ist aus den rostigen 
angeln gerissen." 

6918 print"”man kann vorsichtig hin 

durchgehen.durch" 

6928 print"das blattwerk hoher eic 
hen siehst du die” 

6938 print"mauern der burg.":gp( 11 
)=r:gp(27)=r 

6948 print"ein kleine flasche lieg 
t oestlich von" 

6958 print"dir an einem Baum.” 

6968 goto2838 

6978 print"der waldgeruch stroemt 

bis hierher.” 

6988 print"suedlich siehst du die 

maechtigen eichen" 

6998 print"des stadtwaldes.hier st 

ehen auch noch" 

7888 print"reste von wohnhauesern. 
sie scheinen un-"” 

7818 print"bewohnt zu sein.durch d 
ie verblichenen"” 

7028 print”scheiben ist auch nicht 
s zu erkennen." 

7838 goto2838 

7048 ifgp( 38) =-Ithenprint"SCHNELLE 

R!die einwohner sind schon auf":pr 
int"der "0$[9) "1!" 

7858 gp(26)=r:print"die alten holz 
bohlen des steges" 

7868 print"halten die belastung de 
ines gewichtes" 

7878 print"noch aus.die wellen der 
see schlagen" 

7888 print"sanft an die kaimauer a 
fi." 

7898 ifbo=1landfs=Bandgp( 34) =28then 
print"dein boot schaukelt in den w 

ellen.” 

7108 ifgp( 34) <>34then2838 

7118 print"in einiger entfernung t 
reibt ein "g$(34) 

7128 print"auf dem kratersee.":got 

02838 


- 7138 print"das alte stadttor ist z 


usammengefallen."” 

7148 print"die grossen steinbloeck 
e liegen ver-" 

7158 print"streut herum.dir kommt 
es vor,als wenn” 

7168 print"”satan ‚persoenlich, mit 
der faust das” 
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20/64/128 
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Das unabhängige Commodore- Magazin 


KOMMT REGELMASSIG ZU IHNEN 


INS HAUS 
WICHTIGE RECHTLICHE 


Finden Sie Ihre COMMODORE-WELT nicht am 
Kiosk? Weil sie schon ausverkauft ist? Oder „Ihr”’ 
Kiosk nicht beliefert wurde? Kein Problem! Für 
ganze 60 DM liefern wir Ihnen per Post zwölf 
Hefte ins Haus (Ausland 80 DM). Einfach den 
Bestellschein ausschneiden — fotokopieren oder 


abschreiben, in einen Briefumschlag und ab per S Be - 
& im = 


Post (Achtung: Porto nicht vergessen). COMMO 
DORE-WELT kommt dann pünktlich ins Haus. 


GARANTIE! 

Sie können diesen Abo-Auftrag 
binnen einer Woche nach Eingang 

der Abo-Bestätigung durch den 

Verlag widerrufen — Postkarte ge- 
nügt. Ansonsten läuft dieser Auf- 
trag jeweils für zwölf Ausgahen, 
wenn ihm nicht vier Wochen vor 
Ablauf widersprochen wird, weiter. 


NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


ABO-SERVICE- KARTE 


Ja, ich möchte von Ihrem Angebot 


16/8 COUPON Gebrauch machen. 
Bitte senden Sie mir bis auf Wider- 


ruf ab sofort jeweils die nächsten 


zwölf Ausgaben an untenstehende 
Anschrift. Wenn ich nicht vier Wo- 
chen vor Ablauf kündige, läuft diese 
Abmachung automatisch weiter. 


Ich nehme zur Kenntnis, Name 
daß die Belieferung Vorname... 
erst beginnt, wenn die A - Ba 
Abo-Gebühr dem Verlag Straße/Hausnr. T— 
zugegangen ist. Pr/Oft_...... ER 

Ich bezahle: 


OD per beiliegendem lt RER. 


OD) gegen Rechnung 


OD bargeldlios per Bankeinzug von meinem Konto 


bei (Bank) und Ort_____ 
Kontonummer ________ 


Bankleitzahl ______ 
(steht auf jedem Kontoauszug) 


COMMODORE WELT 


ABO-SERVICE 16/7 Untersihriff 
Von meinem Widefsärucherechthe habe ich Kenntnis genommen. 
nn IB 


POSTFACH 1161 


D-8044 
UNTERSCHLEISSHEIM Unterschrift ______ 
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PROGRAMMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingungen die Listings dieses Heftes auf 


OD Kassetten zu 40,- D Disketten zu 40,- (16er) 


Ich zahle: 
Zutreffendes bitte ankreuzen! 


per beigefügtem Scheck ( ) Schein ( ) 


Gegen Bankabbuchung am Versandtag ( ) 
Meine Bank (mit Ortsname) ______ - _ 
Meine Kontonummer ________ u 
Meine Bankleitzahl _____ 
Vorname haste 
Str./Nr. BREUER 


(steht auf jedem Bankauszug) _ __._.____ _ 
Nachname ee a EI rer ei 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 


Nichtfunktionieren. 16/8 


Unterschrift{_____ Sem enen 


Bitte ausschneiden und einsenden an 


COMMODORE WELT 


KASSETTENSERVICE 16/8 


POSTFACH 1161 


Plz/Ort an 


Umtausch bei 


D-8044 UNTERSCHLEISSHEIM 


LESER WERBEN LESER 


GEWINNEN SIE EINE COM- 
PUTER-UHR! Und zusätzlich 
eventuell noch ein großes Com- 
modore-Buch. Oder ein Paket 
Disketten. ODER AUCH EINEN 
COMMODORE-DRUCKER - 
ODER EINE DISKETTENSTA- 
TION! Wie? Sie werben einen 
Abonnenten. Dann haben Sie auf 
jeden Fall schon die Computer- 
Uhr gewonnen. Zusätzlich ver- 
losen wir unter allen, die mit- 
machen, jeden Monat vier weitere 


Ja, ich mache mit beim Abo- 
Wettbewerb. Ich habe 


Herrn/Frau 


Plz/Ort 


als neuen Abonnenten der COM- 


MODORE WELT geworben. 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit- 
schrift. 

Als Prämie erhalte ich nach Ein- 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie ab- 
gebildet, und nehme zusätzlich 
noch an der Verlosung des Monats 
sowie der halbjährlichen Haupt- 
preise teil. Mir ist bekannt, daß 
der Rechtsweg bei den Verlosun- 
gen ausgeschlossen ist. 

Meinen Preis senden Sie an 


wertvolle Preise. Und alle sechs 

Monate gibt es einen Hauptpreis 

unter allen Abo-Werbern zu 

gewinnen. Also: Mitmachen. Mit- Straße /Hausnr TORER. 

gewinnen. Ze er | 5 
u Straße/Hsnr._ ae «ir 


Bzlart... 


(Bitte ausschneiden und zusam- 
men mit der Abo-Bestellkarte 
links einsenden!) 16/8 
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VERDIENEN SIE GELD 
MIT IHREM COMPUTER! 


Haben Sie einen Commodore VC 20 oder C 64? 
Einen 16/116, Plus 4? Oder einen 128? Können Sie 
programmieren? In Basic oder Maschinensprache? 
Dann bietet COMMODORE-WELT Ihnen die Mög- 
lichkeit, mit diesem Hobby Geld zu verdienen! 

Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusam- 
men mit einer Kurzbeschreibung, aus der auch die 
verwendete Hardware — eventuelle Erweiterungen — 
benutzte Peripherie — hervorgehen muß (Schauen Sie 
sich dazu den Kopf unserer Programmlistings an.) 

Benötigt werden: Zwei Listings des Programms 
sowie eine Datenkassette oder Diskette! Wenn die 
Redaktion sich überzeugt hat, daß dieses Programm 
läuft und sich zum Abdruck eignet, zahlen wir Ihnen 
pro Programm je nach Umfang bis zu DM 300,-! 


Name des Einsenders: 


Sollten Sie keinen Drucker haben, genügt der Daten- 
träger. 

Sie erhalten Ihre Kassette/Diskette selbstverständ- 
lich zurück, wenn Sie einen ausreichend frankierten 
Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift 
garantieren, daß Sie der alleinige Inhaber der Urheber- 
Rechte sind! Benutzen Sie bitte anhängendes Formu- 
ları (Wir weisen darauf hin, daß auch die Redaktion 
amerikanische und englische Fachzeitschriften liest 
und „umgestaltete”’ Programme ziemlich schnell er- 
kennt). 

Um Ihnen die Arbeit zu erleichtern, finden Sie hier 
ein Formular. Sie können es ausschneiden oder foto- 
kopieren. 


Straße/Hausnr. /Tel.: 
Plz/Ort: 


———— [II nn 
EB BB BB m a u a 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programme) an: 


Benötigte Geräte: 


Beigefütt ( ) Listings ( ) Kassette ( ) Diskette 


Ich versichere, der alleinige Urheber des Programmes zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es 
in den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung, das Copy- 


right geht insoweit auf den Verlag über. 


Rechtsverbindliche Unterschrift 


COMMODORE WELT 
PROGRAMM-REDAKTION 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


MYSTIKA ADVENTURE 


7178 print"monument der eitelkeit 

zerschlagen” 

7188 print"haette."” 

7198 print"der suedwind weht leich 
t von der see" 

7288 print"und bewegt schwach die 

duerren graeser,"” 


7218 print"”die aus dem felsigen un 
tergrund heraus-":print"wachsen. 


goto2838 

7228 gp( 26)=r:print:print"”die burg 
hat schon bessere zeiten er-" 
7238 print"lebt.die hohe burgmauer 
mit ihren” 

7248 print"”grobgehauenen schmutzig 
grauen steinen" 

7258 print"umgrenzt den grossen bu 
rghof.ein alt-" 

726@ print"ter brunnen steht seitl 
ich unter ei-"” 

7278 print"ner alten erle.die wach 
tuerme mit den" 

7288 print"eingefallenen schindeld 
aechern scheinen” 

7298 print"aber immer noch trotzig 
den anstuermen-" 

7388 print"den feinden widerstand 
zu leisten." 

7318 ifzu=1thenprint"die 
ist geoeffnet"”:goto7348 
7328 print"die schweren ketten der 
"a$(23)"” sind" 

7338 print"schon seit jahren nicht 
mehr bewegt":print"worden." 

7348 print"der verwilderte garten 
bietet vielem" 

7358 print"getier unterschlupf.":g 

oto2838 

7368 print"du steigst langsam die 
guterhaltenen"” 

7378 print" treppenstufen hinunter 
und betrittst” 

7388 print"”einen schwach beleuchte 
ten kellerraum.” 

7398 print"an einem. Tisch siehst d 
u eine gestalt"” 
7488 print"sitzen. 
428 

7418 print"mit glasigen augen scha 
ut er dich an.":goto7448 

7428 print"mit mechanischer bewegu 
ng putzt er an" 

7438 print"einer grablampe herum.” 
:gpl 11)=r 

7448 print"rechts neben ihm steht 
eine halbleere":print"flasche.":if 
gp([5) <>rthen?7478 

7458 print"”an der feuchten wand,li 


"g$(23)" 


":ifgp( ?)=rthen? 


<11> 
<af> 


<dd> 


<jn> 


<ja> 
<hd> 
<gc> 
<em> 
<fn> 
<ik> 
<bh> 
<bl> 
<jo> 
<gc> 
<nm> 
<em> 
<pd> 
<bm> 
<ae> 
<cj> 
<ea> 
<1lm> 
<ec> 
<hh> 
<pn> 
<dd> 


<hk> 


<hh> 


nks von dir" 

7468 print”haengt eine leiter" 

7478 print"hinter der gestalt (es 
ist der WIRT)" 

7488 print”bemerkst du,in;einer ve 
rstaubten vi-" 

7498 print"trine mehrere lampen.si 

e wurden” 

7588 print"frueher dazu benutzt,de 
n toten ein licht":gp( 11)=r 

7518 print"in die dunkelheit des g 

rabes mitzugeben":g0t0198 

7528 print"in der huette siehst du 
die ueberreste" 

7538 print"einer mahlzeit liegen." 
:ifgp( 6) <>rthen?588 

7548 print"es sieht so aus,als wen 

n kurz vorher" 

7558 print"noch Pe an dem flei 
schigen knochen, "” 

7568 print"der in der asche des er 
loschenden feuers" 

7578 print"liegt,genagt hat." 

7588 print”die waende der huette s 

ind aus stabilen” 

7598 print"hoelzern gebaut.der ein 

gang wird nur” 

7688 print"durch eine decke verhue 
IiE,* 

7618 ifgp( 13)=rthenprinteg$( 13)" " 

ge$l 13)" siehst du”:print”am eingan 

g liegen." 

7628 ifue=2thenprint"draussen hoer 
t du leises gefluester." 

7638 goto198 

7648 print:print"die tuerglocke sc 

heppert matt als du den" 

7658 print"laden betrittst.allerle 

i geruempel be-" 

7668 print”deckt den schmutzigen b 

oden” 

7670 ifue=3thenprint"die frau scha 

ut dich kurz an,dann dreht" 

7688 ifue=3thenprint"sie sich wied 

er um.":goto7718 

7698 print”die frau hat dir den ru 

ecken zugewandt." 

7788 print"sie scheint dich nicht 

bemerkt zu haben.":gp( 11)=r 

7718 ifgp(2)=rthenprint"zwischen d 

em geruempel siehst du ein”:printg 

$(2)" liegen" 

7728 ifgp( 18)=rthenprint"”eine verg 
ilbte zeitung steht im staender" 

7738 ifgp( 1)=rthenprint”etwas geld 
liegt auf der theke" 

7748 print"mehrere flaschen liegen 
auf dem boden" :goto19®8 


« 
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7758 print:print"die gotische bauw 

eise dieser alten " 

7762 print"kirche laesst dich bewu 

nderung fuer die" 

7778 print"baumeister des 14.jahrh 

underts em-" 

7788 print"pfinden.der altar steht 
im halbdunkel" i 

7798 print”des mittelschiffes." 

7888 ifgp(9)=rthenprint"ein schoen 
es kreuz schmueckt den altar." 

7818 print"der stuck am altar broe 

ckelt schon ab." 

7828 ifgp(8)=rthenprint"ein grosse 
r "g$(8)" haengt am ":printg$(8)"b 
rett;.” 

7838 print"im hintergrund sieht ma 
n die grosse" 

7848 print"orgel stehen.” 

7858 ifgp( 29) <>rthen?7888 

7868 print"der kuester steht am al 
tar und bewundert" 

7878 print"die "g$(29)",die er vor 
sich stehen hat":g0t0198 

7888 print"der kuester versucht da 
rauf zu spielen." 

7898 ifzb=2thenprint"er scheint di 
ch nicht bemerkt zu haben.":g0oto79 
18 

7988 print”aus schmalen augen must 
ert er dich" 

7918 goto198 

7928 print:print"ein ganz normaler 
betrieb.der geruch"” 

7938 print"von veilchen durchzieht 
den ganzen" 

7948 print"raum.erst ein bekanntes 
geraeusch” 

7958 print"laesst dich aus deinen 

gedanken hoch-" 

7968 print"fahren.ein hund,der dic 
h geifernd an-" 

7978 print"bellt !er schaut dich k 
urz an und”:ifgp(6)=rthen?998 

7988 print"legt sich dann wieder a 
uf seine matte.":goto8818 

7998 print"frisst dann,dich nicht 

weiter beachtend, " 

8888 print"seinen "g$(6) 

8810 g0oto2838 

8028 ifgp( 38)=-ithenprint"BEEILE d 

ich die einwohner verfolgen dich” 
8838 print:print"ein riesiges geba 
eude versperrt dir die" 

8848 print"sicht auf die stadtmaue 
r.an den vergit-"” 

8858 print"terten fenstern erkenns 
t du, dass es” 


8868 print"sich hier um ein gefaen 

gnis handelt.ein" 

8078 print"staehlerndes tor, das s 
ich aechzend im" 

8888 print"wind hin und herbewegt, 
zieht deine auf-":gp(27)=r 

8898 print"merksamkeit auf sich":g 

002838 } 

8188 print:print"dieser friedhof h 

at etwas unheimliches." 

8118 print"umgestuerzte grabsteine 
lassen deine" 

8128 print"sinne zu hoechster aufm 
erksamkeit an-" 

8138 print"spannen.hier sieht es s 

o aus, als wenn” 

8148 print”die toten gerade jetzt 
ihre aufer-" 

8158 print"stehung feiern wuerden. 

eine grosse " 

8168 print"”gruft zieht deine aufme 
rksamkeit" 

8178 print"auf sich. 

8188 printvg$( 18) 

8198 ifgp(7)=rthenprint"eine "g$(7 
)" liegt darin." 

8228 goto198 

8218 print:print"”das gemaeuer ist 

nicht mehr das beste." 

8228 print"diese erkenntnis laesst 
dich beim" ’ 

8238 print"betreten des "o$(24)" e 

rschauern.”" 

8248 print"es ist ziemlich finster 
hier.grosse" 

8258 print"spinnennetze wabern im 
luftzug des” 

8268 print"windes,der durch die "o 

$( 24) "oeffnung” 

8278 print”hereinweht.allerlei ins 

ekten huschen an" 

8288 print"dir vorbei." 

8298 ifgp(3)=rthenprint"das seil s 

itzt sehr gut befestigt.":g0t0o831® 

8308 gato3578 

8318 print"die richtung,die du ein 

schlagen kannst” 

8328 print"ist ’oben oder unten’.e 

ntscheide" 

8338 print"dich!es ist hier unheim 

lich!":g0t0198 

8348 print:print"du hast jetzt wie 

der festen boden unter” 

8358 print”den fuessen.die holzdie 

len knarren" 

8368 print"wie von geisterhand.sch 

waches licht” 

8370 print"faellt von oben durch d 
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en "o$(24)" herein." 

8388 ifla=3andgp( 30) =rthen8438 
8398 print"trotzdem ist es hier se 
hr finster." 

8488 ifgp(25)=rthenprint"vor dir 1 
iegt eine verrostete "g$(25) 

8418 ifla<>3thenprint"mensch!da vo 
rne..!sieht aus wie eine":printg$( 
3a) "1" 

8428 goto198 

8438 print"hinten an der mauer seh 
e ich eine "g$( 38) :gp( 30) »25:tr=1 
8448 print"stehen.achte auf die mo 
rschen bretter"” 

8458 print"weiche nicht vom weg ab 
.gib mir die" 

8468 print"koordinaten an,ich hoff 

e du kennst” 

8478 print"sie noch,in EINEM satz. 
8488 print"z.B. so: gehe nnoossww 
8498 goto198 

8588 print:print"in der schummrige 
n muehle laesst du" 

8518 print"deinen blick schweifen. 
durch die in " 

8528 print"mannshoehe angebrachten 
fensteroef-" 

8538 print"fnungen faellt nur spae 
rliches licht " 

8548 print"in den raum herein." 
8558 ifsu=@thenprint"ein morscher 
stuhl liegt umgefallen auf":print” 
dem boden." 

8568 print"an der wand steht eine 
"a$( 36)" mit” 

8578 ifvi=1thenprint”zerschlagenen 
";:elseprint"verstaubten”; 

8588 print” glastueren." 

8598 ifgp( 35) =rthenprint"darin lie 

gt "eg$( 35)" "g$135) :g0oto8618 

86AR ifgp( 35) =Bthenprint"dahinter 
liegt etwas." 

8618 print"hinter dem grossen mahl 
stein ist auf" 

8628 print"eine platte etwas einge 

meisselt.” 

8638 ifsu=i1thenprint"unter dem fen 
ster liegt ein holzhaufen":got0283 
8 

8648 ifsu=lorue=1then2838 

8658 ifmu=ithenprint"die tuer ist 
festverschlossen.":goto283® 

8668 print:mu=1:vol8d:fora=1t05:sou 
nd3, 880+28*5,5:next:sound3, 588, 38 
8678 print:print"mist!!die tuere i 
st vom luftzug zu-" 
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8688 print"gefallen.von innen laes 
st sie” 

86990 print"sich nicht oeffnen.":go 
t02838 

8788 ifue=2andr=33thenpoke2822,1:s 
enelr:char1,8,3,"":x1=int(rnd( 1)*#1 
1+1) :g0ot0o4298 

8718 ifue=landr=33thenchar1,8,18," 
UND!kennst du den ORT des gegensta 
ndes?"”:g0t0198 

8728 print"”der wald ist tief und d 
unkel.hohe eichen” 

8738 print"und dornige straeucher 
behindern dich" 

8748 print"bei deinem streifzug du 
rch den wald." 

8758 print"hoffentlich verirrst du 
dich nicht!" 

8768 print"an den spuren im weiche 
n waldboden er-" 

8778 print”"kennst du, dass dieser 
weg haeufig" 

8788 print"benutzt wird.” 

8798 ifgp( 29) =rthenprint"dahinten 
leuchtet etwas,sieht aus wie”:prin 
t"eine kerze." 

8888 goto2838 

8818 print"als du den kratersee er 
reichst,siehst du" 

8828 print"in weiter ferne...-dein 
boot treiben." 

8838 print"wie konntest du auch nu 
r vergessen,das” 

8848 print"boot aus dem see zu neh 

men.” 

8858 print"wahnsinnig vor wut und 
enttaeuschung” 

8868 print"stuerzt du dich in die 

Fluten.” 

8878 print"in diesem moment faengt 
der see wieder" 

8888 print"an zu kochen und brodel 
n.mit gurgeln-" 

8898 print"dem zischen wirst du in 
die tiefe" 

8988 print"gerissen und ertrinkst 
v1" 

8918 goto4918 

8928 print"du steigst in das boot 
ein," 

8938 print"mit kraeftigen rudersch 
laegen ueber-" 

8948 print"querst du den see.die h 
aelfte des weges"” 

8958 print"”hast du bereits hinter 
dir.":g0oto8878 

8968 gosub512@:print”"die schrift i 
st kaum zu erkennen, ich" 


<jb> 


<do> 


<ih> 


a T—— ——————— nn eeReR 


» 


« 
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8978 print”schaffe es nicht !die b 
uchstaben sind"”:print"zu klein":go 
t0o198 

8988 print"auf der platte steht un 
deutlich:":print:print 

8998 printtab( 18B)"D.R ..CH.IG. WE. 


9808 printtab( 18)".UM .C.AT. I.T" 
9218 printtab( 13) sh$ 

9828 g0ot0o198 

9838 print"”das war PRIMA!lan der tr 
uhe angekommen," 

9848 print"nimmst du diese unter 
en arm” 

9858 print"und laeufst den gleiche 
n weg wieder "” 

9868 print"zurueck.":gp( 38) =-1:tr= 
8:g0t0199 

9878 print"uebermuetig vor freude, 
ueber den kostba-"” 

9888 print"”ren fund stuermst du bl 
indlings auf die" 

9898 printg$( 30)" zu.":goto4258 

9188 print"Du ziehst dein boot an 
land und legst” 

9118 print"es,sichrer,am "fer ah ": 

gotn19N 

91?R nrint"Au nimmst den inhalt an 
dick Den ywert-" 

9139 print"losen rest verscharrst 

du heimlich” 

9148 print"unter dem strauch”:g$( 1 
="geld":vg$( 1}="22 taler!Ein scho 

ener betrag"” 

9158 eg$l 1)="ein batzen":gp( 1)=-1 

9168 goto19M 

9178 gosub5128 

9188 iffr=ithenprintvg$( 27) :goto19 

8 

9198 fr=1:print"”du steckst den "g$ 

(8)" in das schloss” 

9288 print"und drehst ihn langsam 

um.knarrend" 

9218 print"oeffnet sich das eisern 

e tor....":g0t0198 

9228 rem ------------------------ - 

9238 rem variabeln,titel,nachspann 

9248 rem ------------------------- 

9258 bo=1:printchr$( 14) :printchr$( 

8) :ro$=chr$( 18) :ra$=chr$( 146) 

9268 v$=chr$( 19) +chr$( 157) +chr$( 29 

)+chr$( 13) +chr$( 28) +chr$( 148) 

9278 z9$="":fori=1t038:29$=z9$+chr 

$[32) :next 

9288 z$=29$:w$="nosw" : j=1:v$=vV$+"a 

bedefghijklmnopgqrstuvwxyz " 

9298 bf$=kK3$+"geh sag leg neh ben 
inv oef kle toe fra seh pru geb sc 


h les zer zue" 

9388 dd$="das ist schon in deinen 
besitz !" 

9318 db$="das besitzt du nicht !": 
da$="das sehe ich hier nicht !" 
9328 fora=1t08:1l=int(rnd( 1)*4+1) 
9338 sh$=sh$+mid$(w$,1,1) 

9348 next 

9358 ue=int( rnd( 1) #5) +2:r=28:co=pe 
ek( 216) :ifco=®thenco=? 

9368 key1,"gehe ":key2,"lege ":key 
3,"nehme ":key8,"benutze "” 

9378 color®,co,1:color4,co,1 

9388 char1,8,8,"":scnelr 

9398 a$=ro$+k$+kK$+K3$ 

9488 b$=ro$+k3$:c$=ro$+k5$:d$=ro$+ 
" "+ra$ 

g9A18 color1,8,5:e$=ro$+k4A$ 

9428 char1,7,9,"":printd$" "d$" "d 
$tab(27)d$" "d$" "d$ 

9438 printtab( ?)c$tab( 27)c$ 

9448 fora=1t05:printtab(8)ro$k3$ta 
b( 28) k3$:next:char1,11,15,"" 

9458 printtab( 11)" "d$" "d$" "d$" 
"d$" "d$" "d$" "Ad" "Ad" " 

9468 fora=1t0o?:printtab(B8)a$:next: 
color1,18,1 

9478 fora=1t04:char1, 18, 18+a,e$:ne 
xt:print:color1,9,7 

9488 fora=1tol2:chari,a,1,"MYS 
T IK A":gosub9558:next 

9498 fora=29t015step-1:chari,a,3," 
(c) 1987 ":gosub9558:next 

9508 char1,18,5,"BY" 

9518 fora=1t09:char1,a,?," Norbert 


9528 char1,28-a,7,"Schmelzer ":gos 
ub9558:next 

9538 char1,14,24,"BITTE WARTEN” :vo 
18 

9548 gosub9898: g0t09568 

9558 fori=1to1ß@:next:return 

9568 scnelr:char1,8,8,"":color1,2, 

7 

9578 print”"DU stehst am ufer eines 
kratersees in" 

9588 print"der eifel.DEIN blick is 
t auf den see ge-" 

9598 print"richtet.DEINE gedanken 
schweifen in ver-" 

9688 print"gangene zeiten.-PLOETZL 
ICH schreckst DU” 

9618 print"auf,die see beginnt zu 

brodeln und" 

9628 print"kochen.DU bemerkst,dass 
der wasserstand" 

9638 print"sinkt.ein blitz durchzu 

ckt,trotz blauen" 
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9648 print"himmels,den horizont.-e 
in donnerschlag-" 

9658 print"und wie von geisterhand 
taucht eine" 

9668 print"insel,mit gebaeuden und 
waeldern,auf...." 

9678 poke239,8:getkeya$:scnelr:cha 
r1,8,8,"":sound3, 988,28 

9650 print"wie in trance hoerst du 
auch noch leise" 

9698 print"orgelmusik herueberklin 
gen.das muss der" 

9788 print"sagenhafte ort sein,von 
dem DU schon" 

9718 print"”oft gehoert hast.der er 
zaehlung nach,” 

9728 print"wurde dieser ort vor ue 

ber 188 jahren," 

9738 print"wegen seiner habgierige 

n bewohner,durch" 

9748 print"die hand gottes versenk 

9758 print"-oder ist alles,qwas DU 
siehst, nur ein" 

9768 print"traum?-DU blickst um DI 

CH und siehst” 

9778 print"ein boot liegen.eigenar 

tig,das hattest” 

9788 print"DU vorher noch nicht be 

merkt.DU steigst" 

9798 print"ein und mit kraeftigen 

ruderschlaegen" 

9888 print"ueberquerst DU den see 

und gelangst zur" 

9818 print"insel.DU steigst aus de 

m boot aus und..” 

9828 poke239,8:getkeya$ 

9838 scnclr:goto4989 

98AB rem --------- nn 

9858 rem variabeln, orte, gegen- 

9868 rem staende und koordinaten 

9878 rem definieren 

9888 rem ----------- 700 

9898 dimo$( 34) ,o( 34,5) ,vg$( 36) ‚g$( 

36) ‚eg$( 36) ‚gp( 36) :restore 18888 

9988 ko$="...nor.ost.sue.wes.obe.u 

nt.” 

9918 Fora=1t033:reado$( a) 

9928 fori=1to5S:readola,i):nexti 

9938 nexta i 

9948 fora=1t036:readg$( a) ,‚eg$(a),g 

pla),vg$(a) 

9958 ko$f=ko$+left$(lg$la),3) +"." 

9968 next 

9978 Fora=16t026:ko$=kof+left$l o$( 

a) ,3)+"”.":next 

9988 o$( 34) ="see":ko$=ko$+"see" 

9998 return 


18888 databurgplatz,,,13,,16 

18818 dataostwall,,,3,18,17 

100828 dataostwall,2,,,9,18 

180838 datakirchplatz,,,9,,19 

10048 dataviehsteg, ,11,12,;14,28 
1aa5@ datagrafschernweg, ‚7,14,,21 
108868 datanordwall,,13,11,6,22 
10870 datamuehlenweg, 11,9,,12,26 
18488 datakirchstrasse,4,3,28,8,26 
109898 datanordwall,,2,,13,26 

18188 datastadtweg,7,,8,5,26 

18110 datasuedwall,5,8,27,15,27 
18129 datanordwall,1,18,,7,28B 
181380 datawestwall,6,5,15,,29 
18148 datastadtwald, 14,12,31,33, 
18158 databurg, ,,1,, 

18168 datakellergewoelbe,,,2,, 
18178 datablockhuette, ,,3,, 

10188 datakirche, ,,4,, 

18198 datageschaeft,,,5,, 

10280 datagaertnerei,,,6,; 

10218 datagefaengnis,,,?,, 

18228 datafriedhof, ,‚4,, 

18238 databrunnen, 16,,25,, 

108248 dataverlies,,,,,24 

18258 datamuehle, ,,;; 

10268 dataporta de maare,12,,,,34 
10278 datalandungssteg,9,,,,34 
10288 dataim wald,31,,,3B, 

18298 dataim wald,32,29,,, 

18380 dataim wald, 15,,29,32, 

18318 dataim wald,33,31,3®,, 

18328 dataim wald, ,15,32,, 

18338 datageldboerse,eine,4,sie sc 

heint wertlos zu sein 

10348 datamesser,ein,2®,es kostet 

22 taler 

1835@ dataseil,ein langes,22,es sc 

heint sehr stabil zu sein 

18360 dataspaten,einen,21,sehr kle 

in aber fein 

18378 dataleiter,eine hohe, 17,eine 
sprosse ist gebrochen 

10388 dataknochen, einen grossen, 18 
‚er ist sehr frisch 

10398 datagrablampe,eine alte,®,si 

e ist sehr schoen 

18488 dataschluessel,einen, 19,er i 
st gross und schwer 

18418 datakreuz,ein,19,das kreuz i 
st aus silber 

18428 datazeitung,eine,2®, 

18438 dataflasche,eine, 17,"ein eti 
kett-ich kann es nicht lesen” 
18448 datavitrine,eine, 17, 

18458 datahammer,einen schweren, 18 


’ » 
108468 datatisch,einen, 17, 
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18470 datastuhl ‚einen, 26, ziemlich 

morsch 

18488 datagalgen,einen,22,er ist i 

m moment noch unbenutzt 

18498 dataaltar,einen einfachen, 19 
‚er scheint nicht der neuste zu se 

in 

18588 datagruft,eine' grosse, 23, sie 
ist geschlossen 

18518 datawirt,einen neugierigen, 1 

?,er ist betrunken 

18528 datafrau,eine,28,sie scheint 
sehr hysterisch zu sein 

18538 datakuester,einen, 19,"ziemli 

ch alt,-aber sehr gewalttaetig" 
18548 datahund,einen wilden, 21, 
10558 datazugbruecke,eine,1,sie is 

t hochgezogen 

18568 datagewehr,ein rostiges,14,e 
s ist geladen 

190578 datakurbel,eine verbogene, 25 
‚sie ist verrostet 

18588 datamauer,eine hohe,4, 

18598 datator,ein schmiedeeisernes 
‚4,es ist verschlossen 

108600 datafenster,ein,ß, 

18618 datakerze,eine verzierte,31, 
18628 datatruhe,eine grosse, 25,das 
schloss ist verrostet 

10638 dataplatte,eine festgemauert 

e,26,es ist etwas eingemeisselt 
18648 datastreichhoelzer,ein paar, 

27, 

18658 datawanderstock,ein knorrige 

r,26,er ist hart 

18668 databoot,,ein,28,ein ruder is 
t angebrochen 

108678 datalupe,eine goldene,A, sie 

vergroessert 8x38 

10688 datakommode,eine alte,26, 
18698 scnclr:printerr$(er)" error 

in zeile:"el:help 

18780 ifer=3@thenclr 

18718 end 

18728 rem ===============2======2=== 
108738 rem 68671 bytes memory 

10748 rem 38665 bytes program 
18750 rem 89332 bytes variables 
18768 rem 81797 bytes arrays 

18770 rem 82614 bytes strings 
18780 rem 17263 bytes free (P®) 
18798 rem =================2=2=202== 


<hc> 


<xnc> 


Snaky 
die Schlange 


Sie sind Snaky, die Schlange, die sich durch diverse 
Gärten winden muß. Keine allzu einfache Sache. 


Bevor Sie Ihr Terrain wechseln können, müssen Sie 
einige Früchte auffuttern, die im Garten versteckt 
sind. Dafür gibt’s Punkte. Nach jeder verschlungenen 
Frucht werden Sie ein Stückchen länger. Delektieren 
Sie sich nicht zu lange an den Köstlichkeiten, Ihre 
Zeit dafür ist begrenzt. Bei Überschreitung bekom- 
men Sie Straffrüchte zu schlucken. Doch der Schwie- 
rigkeiten nicht genug: In jedem Garten stehen Mau- 
ern, die überwunden werden wollen. 

Haben Sie schließlich alle Früchte vertilgt (sie wer- 
den am linken Bildschirmrand angezeigt), erscheint 
oben eine Öffnung, durch die Sie sich in den näch- 
sten Garten schlängeln können. 

Das Programm ist größtenteils in BASIC geschrieben 
und arbeitet mit verändertem Zeichensatz. Maschinen- 
routinen bringen die Mauern auf den Bildschirm und 
lassen sie flimmern. 


| 


CHRISTIAN HAHLMANN 
SASCHA HIRTZ 


u. 


E 3 
E 3 
E23 
En 2 
E 3 
E.2 
E.3 
En 
6.3 
E23 
E 3 
”* 
E 2 
#5 
En 2 
»* 
E03 
E. 2 
E 3 
» 


ELLSSLESEESIEITITTT 


Ab Zeile 7310 ist ein Level-Editor eingebaut. Wenn er 
mit RUN 7310 gestartet wird, wird nach dem zu 
editierenden Level gefragt. Ist dessen Nummer einge- 
geben, so erscheinen Spielfeldaufbau und Cursor. 
Mit den Tasten 
I 
J K 
M 
wird er gesteuert, mit —1— 
lassen sich Mauern löschen, 
mit —2-— setzen. 
Anschließend drücken Sie RETURN und warten bis 
die Daten generiert sind und das Programm neu ge- 
startet ist. 
Schreiben Sie jetzt in Zeile 1180 + 10*Level “RE- 
STORE“ 2680+Level#10 “: GOTO 6310“ und über- 
tragen die Zeilennummer in Zeile 1170 ff. Vergessen 
Sie nicht, das Programm hinterher abzuspeichern. 
Viel Spaß mit Snaky. 


80 


SNAKY THE FRUIT EXTERMINATOR = 4 


18 rem snaky=========-=----======016 
28 rem (p) commodore welt team 

38 rem ===========2=2===== === 
48 rem (c) by christian wahlmann 
58 rem & sascha wirtz 

60 rem 


78 rem basic v3.5 
88 rem plus4 (16/116 + 64 kb) 


58 rem 

188 volB:ifpeek( 56) =248then538 

118 color®,1:color4,1:color1,4,6:s 
enclr:print 

128 print:print:printspc( 18) "snaky 


138 print:printspc( 14)"bitte warte 
ea 
148 print:print:printspc( 15)"(c) ’8 
7 by" 

158 print:printspe( 122)"christ 
ian" 

168 printspe( 13)"wahlmann" 
178 print:printspe( 14) "cooperation 


188 print:printspc( 14)"sascha wirt 
zZ" 

198 printspe( 15)"(& j.w.)" 

2880 print:print:print:printspc(9)" 
bitte ton einschalten!" 

218 goto585®@:rem >>> zeichensatz 
228 gosub5948:rem >>> mas 

238 rem ===> >77 
248 rem zeichen definieren 

258 a=63488:restore26® 

268 Fori=65*#8t091*8-1:readx:pokeat 
i,x:nexti 

278 data99,62,73,127,93,99,62,8 
288 data90,66,66,90,98,66,66,9®8 
298 data®,255,8, 153, 153,8,255,8 
388 data90,65,76,44,33,24,7,0 

310 data98, 130,50,180,132,24,224,8 
328 data®,7,24,33,44,76,65,9® 

338 data@,224,24,132,188,58, 130,98 
348 data99,66,126,690,60,68,24,24 
358 data24,24,68,60,68,126,66,98 
368 data@,224,68,191,191,68,224,8 
378 dataB,7,60,253,253,60,7,8 

388 data12,8,60,114,249,255,255,12 
6 
398 data255,255,8,08,0,0,255,255 
A488 data195, 195,195, 195,255,255,25 
5,255 

418 data255, 129,189, 165, 165,189, 12 
9,255 

428 data28,62,79,255,255,79,62,28 
430 data56,124,242,255,255,242,124 
‚56 

440 data24,68,980,219,255,255, 126,6 
1) 


450 data68, 126,255,255,219,90,68,2 


460 data24,36,66, 153, 153,66,36,24 
470 data36,66,153,36,36,153,6,36 

488 data129,24,36,66,66,36,24, 129 
490 data56,94,95,127,243,254, 126,1 


500 data128,192,192,224,112,128,62 


5190 data16,16,24,20,36,34,238,238 
528 data16,56,56,116,242,254, 254,1 


538 goto7628 

SAB rem --------- 77720 
558 rem programmbeginn 

568 gosub8898 

578 restore318:fori=79*#8t079*8+7:r 
eadx:poke63488+i,x:nexti:sysdec( "® 
769") 

588 dimp%[ 11) ,4%3,1):restore59@:f 
or j=®to1:readq% 8,5) ,q%L 1,3) ,q% 2, 
j) ,9%03, 35) :nextj 

598 data76,88,89,90,66,119,66,69 
688 gosub636B 

618 le=1:vol8ß:sn=3:pu=®:rem le=lev 
el 

628 am=8:af=-2:t=8:t1=8:ifle=21the 
nf8=-1:am=2:elsef8=8 

638 ap=int( rnd(B)*am) +3 

648 gosub99B:gosub2388:poke239,8 
658 ifle>5thensysdec( "86d9") 

668 ifle>5thenpokedec( "786") ,28 
678 ifle>1dthenpokedec( "786") ,15 
688 ifle>1Sthenpokedecl "?86"), 18 
698 ifle>2ßthenpokedect "786”),5 
788 ifle>25thenpokedec( "786"),2 
7108 z=5:x2=20:y2=22:r4=8:r5=-1:x1= 
28:y1=22:rx=®:ry=-1:r1=0:r2=-1:fz= 
0:goto758 

728: rom FH 
738 rem hauptschleife 

748 gosub 1788 

758 gosub 1558 

768 gosub2838:iffz=Athengosub2478 
778 ifnlthen828 

788 iftfthen95® 

798 goto748 

888 rem = 
818 rem naechster „level 

828 nl=B:iffßthen92® 

838 scncir:color®,1:color4,1:color 
1,8,5 

848 c$="#"+b$+b2$+"*" 

858 chari, 13,10," remenninnan" 
868 char1,13,11,c$ 

878 char1,13,12,c$ 


888 char1,13,13,c$ 
898 char1, 13,14, "ram" 


u nn En El nn m 


» 
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988 color1,6,7:char1,15,12,"bonus: 
"+str$(1le*18) :pu=pu+tle*18 

918 fori=788t0988step1ß:sound1!,i,7 
:sound2,i-18,7:nexti 


928 fO=8:le=le+1:sn=sn+t1:fz=d:goto 
628 

930 Keh me 
948 rem tot 

958 tf=B:ifsn=1then566B 

968 sn=sn-1:f@=-1:g0t0628 

978 rem ----------- 
988 rem bildschirmaufbau 

998 color®,16,6:color4,1:color1,8, 


3:printc1$;tab( 18) ;"snaky"” 

1888 color@, 16,6:color4,1:color1,8 
‚3:printcl$;tab( 18) ;"snaky"” 

1818 print:color1,7,2 

10828 printb3$rn$b$b$b$b4A$rrf$ 

1838 fori=1t028:printb3$rn$" "rf$t 
ab( 36) rn$" "rf$:nexti 

1848 printb3$rn$" "rf$”MMMMMMMMMMM 
NMMMMMMMMMMMMMMMMMMMM"rLn$" "rf$ 
1858 color1,8,3:char1,5,24,"level: 
"+str$(le) 

1868 char1,29,24,"punkte:"+str$(pu 
) 

1878 fori=®toap:p%li)=rnd( 8) *4 
1888 onp%( i)+1g0t01890, 1100, 1110, 1 
128 

1898 a$="L":color1,3,4:goto1138 
1180 a$="X":color1,8,7:g0t0113®8 
1118 a$="Y":color1,3,4:g0t0113®8 
1128 a$="Z":color1,6,3 

1138 chari,1,i+2,a$:nexti 

1148 fori=1tosn:colori,1:char1,38, 
i+1,"A":nexti 

1158 color1,12,3:ifle=Ithenreturn 
1168 onle-1g0t01198, 1288, 12108, 1228 
‚1238, 1248, 1258, 1268, 1298, 1288,129 
0,1380, 1318 

1178 onle-14g0t01328, 1338, 1348, 135 
0,1368, 1370, 1388, 1398, 1489, 1418,14 
28,1430, 1448 

1188 goto531@:rem gewonnen 

1198 restore2699:g0t06318 

12808 restore2798:g0ot06318 

1218 restore2898:g0t06318 

1228 restore2998:g0t06318 

1238 restore3898:got0631B 

1248 restore3198:g0t06318 

1258 restore3298:g0t06318 

1268 restore3398:g0t0631® 

1278 restore3498:got06318 

1288 restore3598:g0t06318 

1298 restore3698:g0t06318 

1388 restore3798:g0t06318 

1318 restore3898:got06318 

1328 restore3998:g0ot06318 


82 


1338 
1348 
1358 
1368 
1378 
1388 
1398 
1488 
1418 
1428 
1438 
1448 
1458 
1468 
1478 


restore4898:g0t0631® 
restore4198:g0t06318 
restore4298:g0t06318 
restore4398:got06318 
restore4498:g0t06318 
restore4598:g0t0631® 
restore4698:g0t06318 
restore4798:g0t06318 
restore4898:g0ot06318 
restore4998:g0t0631® 
restore5898:g0t06318 
restore5198:g0t0631® 

Tem Fan 
rem zeichen suchen 
ifabs(r1+rx)=2thenp=67:return 
1488 ifr2=rythenp=66:return 

1498 ifrx+ry=-landri+r2=1thenp=69: 
return 

1588 ifrx+r2=2orry+tr1=-2thenp=s68:r 
eturn 

1518 ifry+r1=2orrx+r2=-2thenp=?1:r 
eturn 

1528 p=7B:return 

1530: Tem Far 
1548 rem kopf setzen 

1558 gosub 1478 

1568 ifrx<>riandry<>r2thensoundil, 1 
BRB,2:elsesound1,1815,2 

1578 ifrx=-ithenp1=88 

1588 ifrx=1thenp1=81 

1598 ifry=-ithenp1=82 

1688 ifry=1ithenp1=83 

16198 poke2848+y1*40+x1,53 

1628 poke3872+y1*4B+x1,p 

1638 ri=rx:r2=ry:x1=xi+trx:y1l=yl+try 
1648 gosub2158 

1658 poke2948+y1*40+x1,119 

1668 poke3872+y1*48+x1,p1 

1678 return 

1688 rem 
1698 rem tastatur/joystick 

1788 iftjthen 1828 

1718 j=joy( 1) 

1728 ifj=@thenreturn 

1738 ifj=ithenry=-1:rx=8 

1748 ifj=-5thenry=1:rx=® 

1758 ifj=7thenrx=-1:ry=® 

1768 ifj=3thenrx=1:ry=® 

1778 ifrx=8then 1888 

1788 ifrx=-rithenrx=r1 

1798 return 

1888 ifry=-r2thenry=r2 

1818 return 

1828 ifpeek( 239) <2then 1848 

1838 poke1319,peek( 1318+peek( 239) ) 
:poke239,1 

1848 geta$:ifa$=""thenreturn 

1858 ifa$="a"thenry=-1:rx=8:g0t017 


<bl> 
<eh> 
<hl> 
<gn> 
<fl> 
<ih> 
<hh> 
<dp> 
<ip> 
<1j> 
<co> 
<ad> 
<pd> 
<hb> 
<bd> 
<ad> 


<id> 
<db> 


<dn> 
<pp> 
<ek> 
<em> 
<fc> 


<nb> 
<ih> 
<kl> 
<ed> 
<el> 
<ml> 
<ek> 
<nh> 
<hp> 
<he> 
<lc> 
<kh> 
<dg> 
<ab> 
<ph> 
<de> 
<mp> 
<pa> 
<a0> 
<in> 
<jb> 
<cn> 
<nm> 
<jg> 
<km> 
<ma> 
<jm> 


<kl> 
<kk> 


SNAKY THE FRUIT EXTERMINATOR - 3 


78 

1868 ifa$="z"thenry=1:rx=9:goto177 
8 

1878 ifa$="1"thenrx=-1:ry=8:goto17 
78 

1888 ifa$=":"thenrx=1:ry=B:goto177 
1) 

1898 return 


1988 rem ------------------ 
1918 rem neue richtung suchen 


1928 pi=peek( 3072+y2#48+x2) 

1938 ifp1=660rp1=67thenreturn 

1948 ifr4=@then 1988 

1958 r4=8 

1968 ifp1=680rp1=69thenr5=-1I:elser 
5=1 

1978 return 

1988 r5=8 

1998 ifp1=68orp1=7®thenr4=1:elser4 
=-1 

2888 return 

2818 rem -------------- 777777 
2828 rem schwanz 

2838 ifz>@thenz=z-1:return 

2848 poke3072+y2*48+x2,32:x2=x2+r4 
:y2=y2+r5 

2858 gosub1928 

2868 ifrA4=-Ithenp=74 

2878 ifrA=ithenp=75 

2888 ifr5=-ithenp=72 

2898 ifr5=1thenp=73 

2180 poke2B4B+y2*40+x2,53 

2118 poke3072+y2*40+x2,p 

2128 return 

2138: rem ==> 777 
2148 rem hindernisse 

215@ p=peek( 3872+y1*48+x1) 

2168 ifp=32then2188 

2178 fori=8to3:ifp=g%[i,8)then2288 
:elsenexti:goto2288 

2188 ify1=2thennl=-1 

2198 return 

2288 x=8:fori=®tol:soundi,rnd( 8) *3 
80+188,5:sound3, rnd( 8) #58+5®B, 18 
2218 poke3072+y1*40+x1,x+84:poke2® 
48+y1*40+x1,118:x=x+1:ifx=3thenx=d 
2228 fork=16t023:poke65286,k:nextk 
:fork=22t016step-1:poke65286,k:nex 
t:poke65286,27 

2230 nexti:poke2848+y1*48+x1,114:p 
oke3072+y1*40+x1,87 

2248 getkeya$ 

2258 tf=-1I:return 

2260 ren Fee 
2278 rem apfel 

2288 q=1:pu=pu+p%l ap) *18+18 

22908 ifaf<@thenchar, 1,apt3," " 
2388 ifaf<-ithenap=ap-1:char1,1,ap 


+3," "ıfs=-T:elseafsaf-1:fs=d:q=d 
2318 gosub2578:color1,8,3:char1,27 
‚24,str$(pu) 

2328 sound1,888,3:sound2, 1888,2 
2330 z=p%l ap+gq) *2+2:ifap>=Bthen258 
8:rem apfelsetzen 

2348 iff8thenchar, 19,9,b2$:f8=9®:go 
t02618 

2358 char, 28,2," ":fz=-1:return 
2368: res == non 
2378 rem apfelsetzen 

2388 iff8then2408 

2398 x=int( rnd( 8) #32) +4:y=int(rnd( 
8) #28) +3 

2408 x=int( rnd( 8) #24) +7:y=int(rnd( 
8) *13) +18 

2418 ifpeek( 3872+x+y*4®) <>32then23 
88 

2428 poke2848+x+y*48,q%[p%lap) ,?) 
2430 poke3072+x+y*40,q%Cp%lap) ‚®) 
2448 return 

2458 rem ----------- 77mm 
2468 rem zeit i 

2478 t=t+1:ift<2thenreturn 

2488 t=8:t1=t1+1:ift1=32then2530:r 
em strafaepfel 

2498 poke3995+t1, 168 

258% return 

2518 rem ----------7777 777 
2528 rem strafaepfel 

2538 af=af+t3:fori=1t03:gosub2388:n 
exti 

2548 sound1,788,5:sound1,588,5:sou 
nd1,788,5 

2558 rem ------- 7277777220000 
2568 rem zeit loeschen 

2578 color1,7,2:char1,4,23, "MMMMMM 
NMMMMMMMMMMMMMMMMMMMMMMMMM":t=@:t 1 
=®:return 

2588 iffsthen2388:elsereturn 

2598 rem ----------- 7277772000 
2608 rem fruechte anzeigen 

2618 ap=int(rnd( 1)*3)+2:fori=Btoap 
:p%l i)=rnd( 8) *4 

2628 onp%l i) +1g0t02630, 2648, 2658,2 
668 

2638 a$="L":color1,3,4:g0t0267® 
2648 a$="X":color1,8,7:g0t02678 
2658 a$="Y":color1,3,4:g0t02678 
2668 a$="Z":color1,6,3 

2678 chari,1,i+2,a$:nexti:goto238® 
2688 rem datas--------7777272nnnn 
2698 dataß,8,8 
2708 dataß,®, 
2718 dataß,®, 
2728 dataß,ßd, 
2738 data®,B, 
2748 data®,B, 


<jg> 


<fb> 
<ij> 


<cg> 


<ed> 
<fb> 
<eb> 
<ci> 
<jm> 


<al> 
<ol> 


<kn> 
<1f> 
<fp> 
<1lb> 
<nj? 
<hc> 
<kp> 


<gi> 
<ik> 
<cj? 
<kj?> 
<i1b> 


<bk> 
<pp? 


<ek> 
<kl> 
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2758 
2768 
2778 
2788 
2798 
2888 
2818 


2828 
2838 


2848 
2858 
2868 
2878 
2880 
2898 
2988 
2918 
2928 
2938 
2948 
2958 
2968 
2978 
2988 
2998 
3088 
3818 
3828 
3838 
3848 
3858 
3868 
3878 
3888 
3098 
3188 
3118 
3128 
3138 
3148 
3158 
3168 
3178 
3188 
3198 
3288 
3218 
3228 
3238 
3248 
3258 
3268 
3278 
3288 
3298 
3388 
3318 
3328 


data®,0,0,0,8,0,0,8 
data®,8,0,8,8,0,0,8 
dataß,0,0,8,8,0,0,8 
dataß,0,0,8,8,0,0,0 
dataß,0,0,0,8,0,8,0 
data®,1,128,0,8,1,128,8 
data@,1,128,0,0,1,128,8 
data®,1,128,8,8,1,128,8 
data@.1.128,8,31,255, 255,248 
data31,255,255,248,8,1,128,8 
data®,1,128,8,8,1,128,8 
data®,1,128,0,0,1,128,8 
dataß,1,128,0,0,1,128,8 
data®,8,8,8,8,0,0,8 
data®,0,0,0,8,0,8,8 
dataß,8,8,8,8,64,2,8 
data®,64,2,8,0,64,2,8 
data®,64,2,0,0,64,2,8 
data®,64,2,8,31,255,255,248 
data®,64,2,8,0,64,2,0 
dataß,64,2,0,0,64,2,8 
data®,64,2,0,0,64,2,0 
data®,64,2,8,0,0,0,8 
data®,0,8,8,0,0,0,0 
data®,0,0,8,0,56,28,8 
data®,8,0,0,2,16,8,64 
data4,8,0,32,8,1,128,16 
data8, 1,128, 16,8,1,128,16 
data8,1,128,16,4,0,0,32 
data2,8,16,64,0,7,224,0 
data0,8,8,8,0,64,2,8 
data®,32,4,0,8,16,8;8 
data®, 15,248,0,0,8,0,8 


data®,8,0,80,0,8,0,8 
dataB,0,0,0,0,8,8,8 
data®,2,64,8,0,2,64,8 
data15,254,127,248,8,16,8,16 
data8,16,8,16,8,16,8,16 
data56,31,248,28,80,8,8,8 
data®,8,0,0,56,31,248,28 
data8,16,8,16,8,16,8,16 
data8,16,8,16, 15,254, 127,248 
data®,2,64,0,0,2,64,8 
data8B,2,8,0,08,0,8,8 
data@,8,8,0,8,8,8,® 
data36,146,73,36,4,2,80,8 
data4,2,0,0,36,146,73,36 
data8,8,0,32,8,0,8,32 
data39,147,2087,36,8,8,0,4 
data®,8,80,4,36,146,73,36 
data®ß, 128,8,0,0,128,8,8 
data68, 146,73,231,08,80,0,8 
data®,8,0,8,36,146,73,36 
data®ß,8,8,0,80,8,0,8 
data8,8,8,08,8,8,0,8 
data®,8,8,0,0,7,254,8 
data®,8,2,0,16,95,258,8 
data16,88,18,8,16,88,234,8 


<jc> 
<ke> 
<jk> 
<gk> 
<jo?> 
<jf> 
<mn> 
<om> 
<ab> 
<fm> 
<fd> 
<gm> 
<lc> 
<om> 
<bk> 
<el> 
<mi> 
<if> 
<aj? 
<dk> 
<ic> 
<ol> 
<ad> 
<nj?> 
<cp> 
<ii> 
<gb> 
<if> 
<jp? 
<go> 
<gc> 
<og> 
<fo> 
<af> 
<dd> 
<gh> 
<ko> 
<nc? 
<op> 
<ga> 
<ki> 
<1f> 
<pl> 
<ab> 
<ne> 
<kc> 
<1k> 
<le> 
<de> 
<bm> 
ng> 
<pj? 
<kp> 
<jk> 
<gk> 
<dj> 
<no> 
<fd> 
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data16,84,42,8, 16,85, 170,8 
data16,85,17@0,8,16,84,42,8 
data16,87,226,8,56,80,2,28 
data68,95,194,34,68,64,2,34 
data68, 127,254,34,0,0,8,0 
data®ß,0,0,0,0,0,0,0 
dataß,8,0,0,8,8,0,0 
data®,63,252,0,0,192,3,0 
data1,0,8,128,66,6,96,66 
data64,8,16,2,48,8, 16,12 
data14,249,15,112,8,65, 138,16 
data8,65, 138,16, 14,248, 15,112 
data48,8,16,12,64,8,16,2 
data66,6,96,66,1,8,0,128 
data®, 192,3,0,8,63,252,8 
data®,9,0,8,0,8,0,0 
data®,0,0,0,0,0,128,8 
data7,128,128,0,8,0,129,224 
data8,®,128,16,9,248, 128,16 
data8, 16,143, 144, 11,208, 136, 1 


data8, 16,139,288,254, 127,136, 


data8, 17,254, 127,11,209,8,16 
data8, 17,11,208,9,241,8,16 
data8, 1,15, 144,8,1,0,16 
data7,129,0,16,0,1,1,224 
dataß, 1,0,8,8,0,0,8 
data@,0,0,0,0,96,6,8 
data®,24,24,0,24,4,32,24 
data6,4,32,96,1,131,193, 128 
data48,96,6,12,12,24,24,48 
data2,6,96,64,2,80,8,64 
data2,0,0,64,2,6,96,64 
data12,24,24,48,48,96,6,12 
data1,131,193,128,6,4,32,96 
data24,4,32,24,0,24,24,8 
data®,96,6,0,0,8,0,0 
data®,0,0,0,0,15,249,8 
data16,48,12,8,56,8,8,28 
data121,128,1,158,19,192,3,2@ 


data17,204,51,136,24,128,1,24 
data36,1,128,36,0,3,192,0 
data36,3,192,36,24,129,129,24 
data8, 128, 1,16,8,72,18,16 
data124,71,226,62,62,32,4,124 
data®, 16,8,0,255, 14, 112,255 
data@,6,96,0,8,6,96,8 
data®,0,0,8,0,0,0,0 
data63,255,127,252,32,2,64,4 
data32,130,65,4,33,192,3, 132 
data32, 130,65,4,32,2,64,4 


'data63, 126,254,252,0,2,0,4 


data32,0,64,8,63, 127, 126,252 
data32,2,64,4,32,130,65,4 

data33,192,3,132,32,130,65,4 
data32,2,64,4,63,254 ‚255,252 


<ao0> 
<13j> 
<df> 
<bm> 
<lg> 
<oo> 
<om> 
<ee> 
<om> 
<fc> 
<gp> 
<mj? 
<gm> 
<fo> 
<cn?> 
<k1> 
<eo> 
<pj? 
<ijii> 


<ma> 


<kh> 
<ii> 
<fe> 
<li> 
<je> 
<ge> 
<li> 
<kd> 
<bn> 
<he> 
<ka> 
<hf> 
<kd> 
<mi> 
<ag> 
<oa> 
<al> 
<ml> 


<of> 
<ml> 
<oi? 
<ph> 
<ij> 
<eg> 
<op> 
<pk> 
<jk> 
<ia> 
<pk> 
<kh> 
<bn> 
<ho> 
<ah> 
<hm> 
<dn> 
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3888 
3898 
3988 
3918 
3928 
3938 
3948 


3958 
3968 
3978 


3988 
3998 
40808 
4818 
4828 
4938 
4048 
4858 
4068 
4878 
4888 
4898 
4188 
4118 
4128 
8 

4138 
4148 
4158 
8 

4168 
4178 
4188 
4198 


data8,8,0,0,0,80,8, 
data®,8,0,0,0,8,8, 
data®,7,56,0,80,4,8,8 
data4,4,2080,8,4,5,232,8 
data31,4,280,62,4,8,196,8 
data4,8,4,8,5,255,255,232 
data®,8,0,8,0,20,18,8 
data@,32,193,8,16,64, 192,132 
data24,68,208,148,24,34,17,12 
data24,17,226,12,28,12,12,28 
data14,3,48,56,15,0,®, 128 
data®,2,8,8,0,2,8,8 

data63, 242, 127,252,32,16,65,4 
data32, 16,65,4,39, 158,73,36 
data®, 138,72,32,8,138,72,32 
data252,243,207,68,0,16,1,4 
data®, 16,1,4,63, 158, 121,228 
data32,128,8,32,32,128,8,32 
data36,255,287,63,36,8,72,32 
data36,0,72,32,39,254,73,228 
dataß,8,64,4,0,0,64,4 
dataß,8,8,8,0,0,8,8 
data9,8,0,8,1,134,24,96 
data6, 121,227,128,16,65,4,16 
data19,77,52,208,11,44,178,28 


data8,32,138,8,9,134,24,112 
data14,25,227,144,16,65,4,16 
data19,77,52,208, 11,44, 178,20 


data8,32,138,8,1,238, 152,96 
data6,24,97,1298,8,80,8,8 
data@,8,08,0,8,8,0,0 
datad,0,0,0,68,12,48,34 
data99,2,64,198,113,192,3,142 
data120,289,139,30,124,77,178 


data126,36,36,126,67,23,232,1 


data91,132,33,218,24,1,128,24 
data24,1,128,24,91,132,33,218 
data67,23,232,194, 126,36, 36,1 


data124,77,178,62,120,289, 139 


data113,192,3,142,99,2,64, 198 
data68, 12,48,34,0,8,8,® 
data240,0,80,15,35,254, 127,196 
data34,0,8,68,34,248, 15,68 
data34, 128,1,68,34,191,253,68 
data34,160,5,68,32,148,49,4 
data32, 137,145,4,0,139,209,8 
data®, 139,289,0,32,137,145,4 
data32,140,49,4,34,168,5,68 
data34, 191,253,68,34,128,1,68 
data34,240,15,68,34,0,8,68 
data35,254,127,196,248,8,0, 15 
dataß,2,64,8,10,2,64,88 


data27,4,32,216,0,4,32,8 
data27,62,124,216,10,32,4,8® 
data@,46,116,0,0,236,55,® 
data3,40,20,192,0,1,128,0 
data®,1,128,0,3,48,28,192 
data®,236,55,8,0,46,116,® 
data10,32,4,80,27,62, 124,216 
data®,4,32,0,27,4,32,216 
data1@,2,64,80,0,2,64,8 
data®,0,0,0,8,0,0,8 
dataß,8,0,0,7,63,252,224 
data1,128,1,128,253,6,96, 191 
data1,24,24,128,99,35, 196, 198 
data127,36,36,254, 16,33, 132,8 
data84,33,132,42,71,36,36,226 
data127,35,196,254,67,24,24,1 


data65,6,96, 130,48, 128, 1,12 
data®,63,252,0,0,0,8,8 
data8ß,8,0,0,8,0,0,8 
data32,130,65,4,32,0,8,4 
data36, 16,8, 36,36,255,255,36 
data4,0,0,32,4,0,8,32 
data63,255,255,252,32,6,96,4 
data32,4,32,4,38,180,38, 108 
data36,36,36,36,33, 132,33, 132 
data33, 132,33, 132,36, 36, 36,36 
data38, 100,38, 108,32,0,8,4 
data32,0,0,4,39,254, 127,228 
data32,2,64,4,32,2,64,4 
data248, 128,1,31,32,156,57,4 
data32,132,33,4,68,196,35,6® 
data®,36,36,0,32,166, 191,4 
data36,0,0,36,36,8,8,36 
data39, 174,117,228,36,0,0,36 
data36, 191,245, 36,36, 128,145, 


data36, 254,159, 36,36, 136, 17,3 


data32, 163,213,4,8,188,85,® 
data69, 129,85,60,32,255,69,4 
data32,0,125,4,248,255,1,31 
data0,2,64,8,0,2,64,8 
data71,254,67,184,78,8,64, 168 
data36,62,192, 168,36, 162,67, 1 


data36, 162,66,4,37,162,66,4 
data37,51,75,228,37,18,72,36 
data36,18,72,164,39,218,204, 1 


data32,66,69,164,32,66,69,36 
data61,194,69,36,5,3, 124,36 
data5,2,0,98,29,194, 127,226 
data@,2,64,8,8,2,64,0 
data®,0,0,0,8,2,64,0 
data255,251,95,255,0,2,64,0 
dataß,2,64,0,127,254,255,254 
data@,2,64,8,0,2,64,8 


<dce> 
<kn> 
<hn> 
<lp> 
<ki> 
<el> 
<km> 
<ap?> 
<ch> 
<nn?> 
<kg> 
<gg> 
<ca> 
<io> 
<oj? 


<ek> 
<in> 
<aj? 
<ib> 
<fl> 
<ip> 
<ce> 
<jm> 
<ac? 
<ep> 
<ik> 
<1k> 
<ph> 
<nf> 
<hi> 
<hh> 
<fo> 
<ej? 
<jm> 


<aa> 


<ob> 
<mg?> 
<dn> 
<ln> 
<jb> 
<pe> 


<ea> 
<cd> 
<af> 


<aj? 
<cf> 
<dh> 
<eöä> 
<al> 
<eon> 
<ha> 
<gk> 
<1j> 
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data255,251,95,255,0,2,64,0 
data®,2,64,8,127,254,255,254 
data@,2,64,8,8,2,64,8 
data255,251,95,255,0,2,64,8 
4970 data®,2,64,0,127,254,255,254 
4980 data®,66,66,0,192,8,8,3 
data®,8,8,8,62, 126, 127,30 
data32,2,65,18,33,242,65,242 
data121,18,64,2,17,18,95,226 
data83, 147,208,34,18,16, 16,32 
data126,15,240,63,0,0,8,8 
5048 data31,247,255,128,16,20,8,15 


5050 data16,20,0,132,19,247,249,4 
data16,0,9,4,16,0,9,68 

‘5078 data31,255,233,12,0,0,41,8 
data146,73,41,248,255,255,0,8 
5098 data®,8,0,8,96,0,8,6 
data63,255,255,252,32,68,68,6 
5110 data165,17,17,21,173,255,255, 


data40,65,4,20,42,65,4,28 
data107,93,117,214,18,73,36, 1 


data18,73,36,144,187,187,174, 


data42,8,32,132,40,8,32, 132 
data173, 255,255, 245,165, 17,17 


data32,68,68,68,63,255,255, 25 
data96,9,0,6,8,0,0,8 
data17,17,0,8,68,68, 127,254 
5208 data127,255,192,0,64,68,94,23 
data94,17,4,200,67,255,245,14 


5228 data73,8,20,36,77,17,22,76 
data105, 127,208, 146,11,68,93, 


data72,85,64,40,79,213,127,23 


data68,85,8,9,81,17,119,8 
5260 data95,251,4,136,65,17,228,76 


5278 data1i00,68,29,56, 127,255,192, 
8 

5288 data68,68, 127,254,17,17,0,8 
9290 rem = 
5308 rem gewonnen 

5318 rem rn$"=reverse on "rf$"=of 
f- on 

5328 color®,1:color4,1:scnclr 

5338 print:print:printg2$b5$za$" " 


zB$rn$zb$z1i$rf$zt$rn$zb$z1$rf$zg$r 
n$z1$zq$rf$zt$; 

5348 printzd$b2$rn$zq$rf$zt$rn$zu$ 
zi$rfHzt$za$" "zO$rn$zb$zi$rf$ztr 


<fc> 
<cl> 
<bg> 
<lc> 
<gp> 
<ko> 
<di> 
<oo> 
x<bJ> 
<jc> 
<bh> 


<dd> 
<od> 
<pi> 
<hi> 
<im> 
<mp> 


<hp> 


<dl> 
<mh> 


<ff> 


<di> 
<gi> 


<nd> 
<ek> 
<jb> 
<pd> 


<nm> 


<kf> 
<gk> 


<cn> 


<kb> 
<ff> 
<oc> 


<ip> 
<ed> 
<pj>? 
<gf> 


<ee> 
<nh> 


<ik> 
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n$zr$rf$" "za 

5358 printbS$rn$zb$z1$rf$za$rn$zb$ 

zi$rf$" "rn$zb$zi$rf$zg$zb$zt$" "z 

a$b2$rn$zYgrr$; 

5368 print” "za$b2$rn$zb$z1$rf$zB$ 

rn$zb$zi$rf$" "zA$zu$zB$ 

5378 printb5$zt$" "zt$rn$z1$z1$rf$ 

zt$zt$"” "zt$rn$z1$z1$rf$zt$rn$z1$z 
1$rf$zt$rn$z1$; 

5388 printrf$zt$zr$rn$zi$rf$zt$zt$ 
" "zt$rn$z1$zi$rf$zt$zt$" "zt$ 

5398 print:printye$zb$z1$z1$" "zi1$ 

" "zb$" "zb$b5$z1$b$b$b2$rn$" "rf$ 

5488 printrn$" "rf$" "zr$zt$rng” " 

rf$" "z1$" "zb$zg$zb$z1$z1$" "rn$" 
"rf$" "z1$zb$; 

5418 printzq$"” "zi$zb$zg$"” "zi$zb$ 

zq$z1$zg$" "z1I$z1$" "zb$z1$z1$" "r 

n$" "rf$zi$za$ 

5428 printrn$"” "rf$"” "rn$zg$rrf$zo$ 

rn$" "rf$" "rn$" "rf$" "rn$zO$rf$z 

O$rn$" "rf$" "zr$; 

5438 printzt$rn$" "zt$rf$zt$rn$zB$ 

rf$z8$zgq$rn$"” "zO$rt$za$" "rn$" "z 

a$zb$rrf$; 

5448 print” "rn$" "rf$zr$rn$zr$rf$ 

zı$" "rn$" "rf$" "zr$zt$rn$"” "rf$" 
"rn$" "rf$ 

5458 printrn$za$rf$z1i$rn$zt$rrf$za$ 

rn$zq$rf$zg$rn$zg$rf$z1i$rn$zt$rf$z 

t$rn$zq$rf$z1i$rn$; 

5468 printzt$rf$zt$rn$" "rf$zr$rn$ 

zr$rf$zr$rn$" "zg$zb$rf$zr$rn$zr$r 

f$z1$rn$zb$zB$rf$; 

5478 printzB$"” "rn$" "rf$zb$z1$rn$ 

zt$rf$zt$rn$zg$rf$zi$rn$zt$rf$zt$r 

n$" "rf$"” "rn$" "rf$ 

5488 color1,3,4 

5498 print:printtab(5) ;rn$zt$" "rf 

$zq$;tab( 18) ;rn$zt$" "rf$zag$;tabl 3 

2) ;rn$zt$"” "rf$za$ 

5588 printtab(5) ;rn$zgq$” "rf$zt$;t 

ab( 18) ;rn$zq$" "rf$zt$;tabl( 32) ;rn$ 

zq$" "rf$zt$ 

5518 printtab(6) ;zt$;tab( 19) ;zt$;t 

ab( 33} ;zt$ 

5528 printtab(6) ;zt$;tab( 19) ;zt$;t 

ab( 33) ;zt$ 

5538 vol8:fori=588t0988step5:color 

4,i-int(i/16) #16+1,5:sound1,i,2:so 

und3,i,2:next 

5548 color4,1:color1,6,4 

5558 char1,15,16,"sie haben” 

5568 color1,7,5:char1,11,18,"mit " 
:printusing"##444" ;pu;:print"” punk 

ten" 

5578 color1,2,7:char1,12,20,"g e w 
onnen" 


<ae> 


<oh> 


<pe> 


<he> 
<mo> 


<mf> 


<kd> 


<mi> 


<bb> 


<cl> 


<mb> 


<an> 


<ai> 


<ep> 
<ab> 


<io> 


<om> 
<np> 
<mm> 
<gp> 
<fl> 
<ig> 
<do> 


<pj? 
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5588 char1, 11,21, 22$+z22$+22$+z22$+z 
2$+22$+22$+22$+z2$+22$+22$+22$+22$ 
+z2$+z2$+22$+z2$ 

5598 restore568®8:fori=1t07:readx,y 
:sound1,x,y:sound2,x+5,y:forj=1to1 
d:nextj,i 

56088 data758, 16,658,8,658,8,69%8,16 
650,32,738,16,745,32 

5618 getkeyaß 

5628 scncelr:color®,1:color4,2,3 

5638 color1,12,5:char1,13,12,"noch 

mal (j/n)" 

5648 getkeya$:ifa$="j"thenrun:else 
ifa$<>"n"then5648 

5658 color@,2:color4,7,4:color1,1: 
senclr:end 

5668 color®, 1:color4,1 

5678 scncelr:print:print:print 

5688 printtab( 15) ;re$"du bist”"pu$” 


5698 print:print 

5708 fori=-19088t0988step-18:soundl, 
i,5:sound3,i-18,5:nexti 

5718 printtab( 11) ;ye$rn$b5$rf$"” "g 
1$zb$rn$b3$rf$zg$" "lg$rn$b5$rf$ 
5728 fori=1t05:printtab( 11) ;ye$b2$ 
rn$" "rf$b3$g1$rn$" "rf$b3$rn$" "r 
f$" "1g$b2$rn$" "rf$ 

5738 next 

5748 printtab( 11) ;ye$b2$rn$" "rf$b 
3$g1$zr$rn$b3$rf$zt$" "1g$b2$rn$"” 
"rf$ 

5758 fori=1t058:sound1,rnd( 1) #588+ 
588,5:sound3,rnd( 1) #580+500,5 

5768 color@,rnd( 1)*16+1,rnd( 1)*#8:n 
exti 

5778 color®, 1:print:print 

5788 printusingb2$+gr$+"sie haben 
#444# punkte und kamen bis";pu 
5798 print:printusingwh$+b$+b5$+"1 
evel ## ...";le 

5808 getkeya$:goto5620 

5818 end 

5828 
5838 
5848 


rem zeichensatz kopieren 

rem und einschalten 

5858 poke55,8:poke56,248:clr 

5868 data162,0,189,80,288, 157,0,248 
‚189,8 

5878 data289,157,0,249,189,8,218,1 
57,8,258 

5888 data189,0,211,157,8,251,202,2 
88,229,96 

5898 restore5S868:fora=832t0861:rea 
db:pokea,b:next 

5988 sys832:poke65298, 192:poke6529 
9,248:poke748,248 

5918 goto228 


<ke> 


87 


5928 
5938 
5948 
5958 
5968 
5978 
0,8d 
5988 
b,9d 
5998 
B,e4 
6HHB data6d,20,4f,01,81,69,00,ad,5 
f,86 

818 data69,08,8d,5f,06,3d,68,86,6 

9,08 
6828 
d,64 
6838 
6,68 
6848 
9,8c 
6858 
8,88 
6868 
2,86 
6078 
6,28 
6888 
6,ca 
6898 
1,86 
6188 
6118 
6,8d 
6128 
3,18 
6138 
8,68 
6148 
0,88 
6158 
6,86 
6168 
d,77 
6178 
8,eB8 
6188 
c,Be 
6198 
6288 
6218 
6228 
6238 
6248 
6258 
6268 
6278 
6288 


rem 
rem mas-programm 
a=1616:restore597® 
reada$:ifa$="ende”thenreturn 
pokea,dec(a$) :a=a+1:g0t05958 
dataa2,80,8d,56,86,69,48,9®, 1 
data6f,86,39,4f,9d,74,07,a9,3 


data74,80b,ad,6f,86,e8,e®,88,d 


data8d,698,86,3d,64,06,69,88,8 
data96,ad,65,86,69,88,8d,65,®8 
dataa9,7c,8d,5f,86,8d,64,86,a 
data8d,68,06,39,08,84,65,06,a 
dataa2,14,8e,71,86,22,84,8e,7 
data8c,78,86,b9,88,06,20,58,8 
data73,86,ac,70,06,c8,ae,72,8 
datae®,08,d®,e5,28,73,86,ae,? 


dataca,e®,88,dBß,d5,68 
data96,78,39,f7,8d,14,83,39,8 


data15,03,58,60,a3d,d8,86,a2,8 
data8d,f8,06,69,14,ca,d@,f8,a 
data@2,ae,f6,86,ca,8e,f6,86,e 
dataf®,83,4c,de,ce,a2,84,Be,f 
data28,e6,06,32,88,b9,29,87,9 
datafa,c8,ca,d@,f6,ae,d8,86,e 
data®8,d@,82,a2,00,8e,d8,86,4 


datace . 
data3c,66,c3,99,99,c3,66,3c 
data66,c3,99,3c,3c,99,c3,66 
datac3,99,3c,66,66,3c,99,c3 
data99,3c,66,c3,c3,66,3c,99 
data3c,66,c3,99,99,c3,66,3c 
data66,c3,99,3c,3c,99,c3,66 
datac3,99,3c,66,66,3c,99,c3 
data99,3c,66,c3,c3,66,3c,99 
data78,a9,8e,8d,14,83,49,ce,8 
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d,15,83,58,6@,ende 
6290 ren FF 
63088 rem bildschirm aufbauen(mas) 


6318 fori=8t079:readx:pokei+1536,x 
:nexti 

63208 sysdec( "0696") 

6338 return 

6348 rem ---------------- 
6358 rem titelbild 

6368 color, 1:color4,1:color1,8,6 
6378 printcl$:print 

6388 printb4$b4$rn$zt$b2$rf$zg$b$r 
n$za$rf$zB$ 

6398 printb4$b3$rn$z@$zb$rf$" "zr$ 
rn$" "rf$b$rn$zB$rf$zB$ 

6488 printb4$b3$rn$zA$zr$rf$b$b3$r 
n$za$rrf$zB$ 

6418 printb4$bA$rn$zg$b2$rf$zg$"” " 
rn$" "zt$" "rf$zg$" "rn$zt$b2$rf$z 
a$rn$za$rf$za$; 

6428 printzb$rn$zt$rf$z@frn$zOsrf$ 
z0$" "rn$zu$rrf$za$ 

6438 printb$zr$rn$"” "rf$” "rn$” "r 
f$zt$zr$rn$" "za$zb$rf$" "rn$zO$rf 
$zB$rn$za$b2$; 

6448 printzi$rf$" "rn$za$rf$zag” " 
rn$zBö$rf$zB$ 

6458 printb4$b3$rn$zA$zr$rf$" "zb$ 
rn$" "rf$" "rn$" "rf$b2$rn$"” "zO$z 
r$rf$”" "rn$z8$; 

6468 printrf$zB$rn$zo$rf$zB$rngzg$ 
zr$rf$"” "rn$zB$zr$rf$" "rn$zB$rf$z 
e$ 

6478 printb4$bA$rn$zg$b2$rf$zt$" " 
rn$" "rf$b2$rn$” "rf$" "rn$zg$b2$r 
f$ze$rn$zO$rtf$; 

6488 printz0$" "rn$zg$rf$z0$" "rn$ 
zq$b2$rf$z0$ 

6498 printb$b$b$rn$zt$rf$zB$ 

6588 printb$b$bA$b3$rn$zB$b2$zb$rf 
$ 

6518 color1,6,4:print:print 

6528 printb2$zb$zgq$" "z1$ 

6538 printb2$zr$rn$" "zt$zb$rf$ 
6548 printb4$rn$za$rf$ 

6558 color1,3,4 

6568 printb2$z1$rn$b3$rf$z1$ 

6578 print” "rn$zB$b3$rf$zg$zr$zB$ 
6588 print" "rn$b5$rf$zi$rn$" "rf$ 
6598 print" "rn$zg$b5$zb$rrf$ 

6688 print" "zr$rn$b5$rf$zt$ 

6618 printb2$zr$rn$zg$" "zb$rf$zt$ 
6620 color1,6,5:char1,8,13,"" 

6638 printtab( 12) ;b2$z1$zq$ 

6648 printtab( 12);" "rn$" "zr$" "r 
f$ 

6658 printtab( 12) ;b2$rn$zB$rf$za$ 
6668 printtab( 12) ;b2$rn$" "rf$ 


<ak> 


<je> 


<le> 


<bn> 


<hd> 


<pc> 
<ja> 


<gh> 
<ip> 
<jo> 
<hm> 
<ej> 
<jg? 
<gd> 
<ep> 
<TT> 
<mm?> 
<kb> 
<bf> 
<ee> 
<ek> 


<do> 
<pl> 
<ce> 


6678 printtab( 12);" "zb$rn$zb$rf$ 

6688 printtab( 12) ;" "rn$zB$rf$zBfr 

n$bA$rf$zg$ 

6698 printtab( 12);" "rn$zu$" "rf$z 
1$z21$z1$rn$zt$zb$rrf$zg$ 

6788 printtab( 12) ;rn$z@$zr$zu$z1$z 
1$z21$z1$rf$z1$rn$" "rf$ 

6718 printtab( 12);" "rn$z1$b5$zb$r 

f$zt$ 

6728 printtab( 12) ;b3$rn$z1$z1$z1$r 

f$ 

6738 color1,7,6:char1,22,16,"anlei 

tung ( j/n)?" 

6748 getkeya$:ifa$="j"then6838 

6758 ifa$<>"n"then6748 

6768 color1,7,6:char1,22,17,"[t] t 

astatur":char1,22,18,"[ j] joystick 
lag 

6770 getkeya$ 

6788 ifa$="j"thent j=B:return 

6798 ifa$<>"t”"then6778 

6888 tj=-1:return 

6830; tem > een 

6828 rem anleitung 

6838 scnclr:color1,1:color®,6,6 

6848 print:printb4$"anleitung:” 

6858 color1,7,7:printb4$z22$22$z2$z 

2$22$22$z22$z22$z2$ 

6868 colori,1:print:printb3$”"sie m 

uessen versuchen, mit ihrer" 

6878 print:printb3$"schlange aepfe 
1:";:color1,3,3:print"L";:color1,1 
:print” ‚birnen:”; 

6888 color1,6,2:print"”Z"”;:color1,1 
:print" „" 

6898 print:printb3$"bananen:";:col 

or1,8,7:print"X";:color1,1:print" 
‚und kirschen:"; 

6988 color1,3,3:print"Y";:color1,1 
:print"” zu" 

6918 print:printb3$"fressen. aber 

vorsicht,sie mues-" 

6928 print:printb3$”sen sich durch 
immer schwieriger" 

6938 print:printb3$"werdende level 
durchfressen!!!" 

6948 print:printb$b3$"v ie 1" 

6958 print:printb$b4$b4$"g 1 ue c 
k 1:77 

6968 color1,6,3:printhe$" FECCCEEE 

CECCECCELCCLCCCCCCECCECCCECECEG" ; 

6978 fori=1t018:char1,1,i1,"B":char 
1,38,i,"B":nexti 

6988 printb2$"B"b$b2$"F";:color1,8 
‚?7:print"@";:color1,6,3:printtab( 3 

8) ;"B" 

6998 print” B"b$b2$"B"b$b$b3$"B" 

7888 print” B"b$b2$"B"b$b$b3$"B" 


<mj? 
<ck> 
<11> 
<in> 
<pe> 
<pn> 
<hn> 


<ho> 
<ji> 


<ni> 
<fo> 
<no> 
<pk> 
<pl> 
<fb> 
<bh> 
<eh> 
<an? 
<op> 


<jh> 


<kf> 


<nk> 


<mp? 
<con? 
<ce> 
<cf> 


<bp> 
<bo> 


<pg> 
<jn> 
<oa> 
<hp> 


<df> 
<kf> 
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7818 print" DECCCCCECEECCE"b2$"KCC 
HHHHHHNHHHHKHHHHHNHH 6 

70828 color1,5,3:print"(c) by sasch 
a wirtz & christian wahlmann"; 
7838 printtab( 14) re$rn$"press a ke 
y"rf$; 

7048 getkeya$:scncelr 


7858 color1,6,3:printhe$” FECCCECEE 
LCCCCCCLCCCECCCCCCCLCECCCCECEEE" ; 
7868 fori=1to18:char1,1,i,"B":char 


1,38,1,"B":nexti 

7878 printb2$"B"b$b2$"F";:color1i,8 
‚?7:print"@";:color1,6,3:printtab( 3 
8) ;"B" 

7888 print” B"b$b2$"B"b$b$b3$"B" 
7898 print” B"b$b2$"B"b$b$b3$"B" 
7188 print” DECCCCCCCCCECCE"b2$"KCC 
CECCCECCCCCECLCCECECE" 

7118 color1,5,3:print"(c) by sasch 
a wirtz & christian wahlmann”; 
7128 printtab( 14)re$rn$"press a ke 
y"rf$; 

7138 printhe$:color1i,1 

7148 printtab( 3) "punktewertung:” 
7158 color1,7,7:printtab( 3) z2$z2$z 
2$22$z22$22$22$z22$22$22$22$22$z2$z2 
$ 

7168 color1,3,4:print:printtab( 3)" 
Frucht "b4$b3$"punkte”b5$"steuerung 


7178 color1,7,7 

7188 printtab( 3) z2$22$22$22$22$22$ 
b4$63$22$z2$z22$z2$22$22$b65$z22$z2$z 
2$z22$22$22$z22$z2$z2$ 

7198 colori,1:print:printtab( 3) "ap 
fel"b4$"="b5$"10"bA$b3$"tastatur:" 
7288 print:printtab( 3) "banane”b3$"” 
="p5$"20"b6$b5$"a" 

7218 print:printtab(3)"kirschen =" 
b5$"38"b5$bA$"1 + :” 

7228 print:printtab( 3) "birne”b4$"”= 
"H5$"40"b6$b5$" zZ" 

7238 print:printtab(27)bk$" joystic 
k:" 

7248 print:printtab(27)re$" port 1 


7258 color1,3,3:char1,14,7,"L" 
7268 color1,8,7:char1,14,9,"X" 
7278 color1,3,3:char1,14,11,"Y" 
7288 color1,6,3:char1,14,13,"Z" 
7298 getkeya$:goto6368 

7388. ven -- > en en 
7318 rem level-editor 

7328 input"level";1 

7338 le=1:gosub998 

7348 x=®:y=B:rx=@:ry=8:dimf%( 3,19) 
7358 zn=1#18+4998 

73608 a=32 


7378 poke3196+( y-ry) #4B+x-rx,a 
7388 a=peek( 3196+y*48+x) :poke3196+ 
y#40+x,42 

7398 geta$:ifa$=""then?7398 

7488 poke239,8:ifa$=chr$( 13) then?5 


7418 rx=B:ry=B8 

7428 ifa$="i"thenry=-1 

7438 ifa$="m"thenry=1 

7448 ifa$="j"thenrx=-1 

7458 ifa$="kK"thenrx=1 

7468 ifa$="1"thena=32 

7478 ifa$="2"thena=79 

7488 ifx+rx<dorx+rx>3lthenrx=B 
7498 ify+ry<Bory+ry>19thenry=8 
75008 x=xtrx:y=ytry:goto7378 

7518 poke3196+x+y*4B,a 

7528 fory=8to19:forx=8to3:x1=x*8 
7538 a=®8:fork=8t07:b=2"(7-k) 

7540 ifpeek( 3196+x1+k+y#48)=79then 
a=a+tb 

7558 nextk:f%lx,y)=a:nextx,y 

7568 senclr:forn=®tao9:char1,®,n,st 
r$( zn+n) +"data" 

7578 fory=Btol:forx=Bto3 

7588 a$=str$( f%lx,n#*2+y)) :printrig 
ht$(a$,len(a$)-1);"”,";:nextx,y:pri 
ntchr$( 20) 

7598 nextn:print”run" 

7688 tp=1319:poketp, 19:fori=1to11: 
poketp+i, 13:nexti:poke239,12 

7618 end 

7628 gosub8898:restore8ßad:dima$l 8 
) ,‚n%( 8) 

7638 fori=8to8:readn%(i),a$(i) 
7648 nexti:le=1:gosub7798 

7658 fori=8to8 

7668 z=n%li) :n=len(a$l(i)) 

7678 x1=20:y1=22:x2=20:y2=22:rx=®: 
ry=-1:r1=8:r2=-1:r4=8:r5=-1 

7688 for j=Bton:ifj=Bdthen?7758 

7698 a$=mid$(a$li),3j,1) 

7788 onvalla$) g0t07710,7728,7730,7 
7408,7758 

7710 rx=8:ry=1:g0t0775® 

7728 rx=B:ry=-1:g0t07758 

7738 rx=1:ry=8:g0t07758 

7748 rx=-1I:ry=B 

7758 gosub 1558: gosub283® 

7768 geta$:ifa$=" "then?788 

7778 nextj,i 

7780 getkeya$:clr:goto56®B 

7798 scnclr:color®,1:color4,1 

7888 print:print:printb3$; :c=3:for 
i=1t034:colori,c,5:print"#*"; :ifc=3 
thenc=?:elsec=3 

7818 sound1, 1888-c#28,2 

7828 next:print:c=?7 
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7838 fori=1t028:colori,c,5:printb3 


« 


$"#"tab( 36); 
7848 ifc=3thenc=7:elsec=3 
7858 sound1, 1888-c*#28,2 

7868 color1,c,5:print"*#":next 


7878 printb3$; :fori=1t034:colori,c 
‚5:print"*#"; :ife=3thenc=?7:elsec=3 


7888 sound], 1008-c*#28,2 


7898 


7988 a$="christian wahlmann"”:y=A:g 


next:print 


osub7968:a$="&":y=5:gosub7968 


7918 a$="sascha wirtz"”:y=6:gosub?79 


68:3$="praesentieren":y=8 


7928 br=1len( a$) #2-1:x=28-int(br/2) 
7938 fori=1tolen(a$) :colori,rnd( 1) 
#14+2,4:char1,i*2-2+x,y,mid$(a$,i, 


N) 


7948 sound3, 1888-i*2,4 


7958 


nexti:return 


7968 br=len( a$) :x=28-int(br/2) 


7978 fori=1tolen(a$) :colori,rnd( 1) 
#14+2,4:char1,i-1+x,y,mid$(a$,i,1) 


7980 sound3, 10@8-i*2,2 


7998 


BRRB data16,"442222222222333311111 


zig 


8018 data1Bd, "333333333322223333222 


222” 


nexti:return 


8028 data6, "33332222222222" 


8038 data1B, "444444444444442222333 


322244442223333" 
Bu40 data2, "4222222233" 


8058 data22,"444444442222222222311 


31131 


8068 data6, "3333333332222223333244 


4222" 


8078 data12,"333333332222424242323 


232" 


8088 data28,"444444444444442233333 


13222222" 


33333333333333333333333” 
b$=" ":52$=b$+b$ 
b3$=b2$+b$:b4$=b3$+b$ 
b5$=b4$+b$:b6$=b5$+b$ 


8898 
8188 
8118 
8128 
8138 
8148 
8158 
8168 
8178 
8188 
8198 
8288 
8218 
8228 
8238 
8248 
8258 
8268 


b$=b5$+b5$ 
rem nachspann 


rem * farbcodes/steuercodes *# 
:rn$=chr$( 818) 


wh$=chr$( 885) 


he$=chr$( 819): 
:bk$=chr$( 144) 
:c1$=chr$( 147) 
:g2$=chr$( 152) 
:pu$=chr$( 156) 


gr$=chr$( 838) 
rf$=chr$( 146) 
g1$=chr$( 151) 
1g$=chr$(:153) 
ye$=chr$( 158) 


rem ##%* zeichensatz/graphik * 
z8$=chr$( 161): 
z2$=chr$( 163) : 
zq$=chr$( 187): 
zt$=chr$( 198) : 


re$=chr$( 828) 


z1$=chr$( 162) 
zb$=chr$( 172) 
zr$=chr$( 188) 
zu$=chr$( 191) 


<dm> 
<pc> 
<pi> 
<oc> 


<np?> 
<ib> 


<ij? 
<jn> 


<im> 
<ed> 


<en> 
<kd> 
<ak> 
<pn> 


<ge> 
<jo> 
<ii> 


<ie> 


<fj> 
<hi> 


<ni> 
<nk> 


<hp> 
<l1b> 
<md> 


<ib> 
<nj?> 
<gp> 
<ch> 
<mc> 
<kc> 
<nh> 
<pe> 
<dm> 
<bl> 
<ee> 
<ba> 
<ap> 
<nc> 
<lo> 
<ia> 
<hl> 
<mh> 
<jd> 


ı8 — 
8278 return <gk> 
8280 rem =========>========32=5==>= chj> 
8298 rem 68671 bytes memory <pd> 
8388 rem 23925 bytes program <ct> 
8318 rem 88434 bytes variables <fl> 
8328 rem 88056 bytes arrays <ce> 
8338 rem 88436 bytes strings <do> 
8348 rem 81288 bytes zeichensatz <lo> 
8358 rem 34548 bytes free (®) <kj> 
8368 rem ========================= cml> 


Future Games 


Als Kommandeur eines Raumschiffes kämpfen Sie 
gegen die feindliche Flotte. Wer dabei am geschickte- 
sten vorgeht, sammelt die meisten Punkte. 


In Future Games wird Ihnen die Aufgabe gestellt, 
möglichst viele der weißen Punkte, die regelmäßig 
über das Spielfeld springen, von Ihrem Raumschiff 
aus abzuschießen (y = aufwärts, g = links, h = rechts, 
b = abwärts, f = feuern). Jedoch stellt Ihnen die feind- 
liche Flotte immer wieder ein Hindernis in den Weg, 
das ständig auf Ihrer Höhe bleibt. Am linken und 
rechten Bildschirmrand befinden sich zwei Gänge, 
die miteinander verbunden sind. Wenn Sie das Spiel- 
feld auf der linken Seite verlassen, dann erscheint Ihr 
en sofort auf der rechten Seite (oder umge- 
ehrt). 


Auf Ihrer Jagd nach Punkten verbrauchen Sie natür- 
lich auch Energie. Am rechten unteren Bildschirm- 
rand können Sie jedoch nachtanken, indem Sie Ihr 
Flugobjekt mit dem rechten Ende unter die erste der 
drei Kugeln steuern. Wenn der Tank voll ist, müssen 
Sie die Tankstelle sofort wieder verlassen, da Sie 
sonst den gesamten Tankinhalt wieder verlieren und 
nochmals tanken müssen. Und das kostet Zeit. Nach 
etwa zwei Munuten Spielzeit erscheint eine kleine 
Raute am Bildschirm, die Sie auf jeden Fall abschie- 
ßen sollten, sonst wird Ihre Zeit wieder auf Null ge- 
setzt. Den Schutzschirm, den das feindliche Volk er- 
richtet hat, können Sie nicht abschießen, da er Ihr 
Geschoß zurückfeuert. 

Der Druck auf Taste S hält das Spiel an, ein zwei- 
ter Druck setzt es fort (siehe auch Einblendung beim 
Titelbild). Ist das Spiel zu Ende, erscheint eine Liste 
mit Namen und Punktestand aller Spieler. Betätigen 
Sie die Space-Taste, kommen Sie ins Titelbild zu- 
rück. Auf diese Weise gelangen Sie auch vom Titel- 
bild zur Namens- und Modeabfrage. Martin R. Wollny 


90 


| FUTURE GAMES 


18 rem future games===-=========616 
28 rem (p) comodore-welt-team 

38. rem =========- == 22 
48 rem (c) by martin r. wollny 

58 rem chieming 

68 rem 

78 rem basic v3.5 

808 rem c16/116/plus4 

98 rem ===================2====== > 
188 : 

118 rem * titel * 

120 : 

138 gosub3588:scncir:color®,1:colo 
r4,1:color1,2:vol8:fora=1t0288®:ne 
xt 

148 fora=8to11:reada$:char,a,2,a$: 
sound1,898,2:forgq=1t0228:next:next 
158 fora=1to12:char,®,2,w$:forg=1t 
olß@:next:next 

168 fora=8t07:reada$:char,a,3,8$:s 
ound1,898,2:forg=1t022®:next:next 
178 fora=itol4:char,®,3,w$:forg=1t 
o1ß@:next:next 

188 fora=@to18:reada$:char,a,4,a$: 
sound1,898,2:forg=1t0228:next:next 
198 fora=1toß:char,®,4,w$:forg=1to 
188:next:next 

200 : 

218 rem * datas titel * 

228 : 

238 dataf,u,t,u,r,e," ",‚g,a,m,e,$, 
(,c,)," ",1,9,8,7,b,y," "‚m,ä,r,t, 
i,n,"” “Eye,” . 

249 dataw,o,1l,l,n,y 

258 fora=1t02888:next 

268 

278 rem * variablen * 

288 : 

298 poke65286, 11:poke1343,8:sys623 
59 


388 ri$=chr$( 29) :r2$=r1$+r1$:u1$=c 


hr$( 145) :u4$=u1$+u1$+u1$+u1$:uß=2: 
h=2 

310 urf$=x$+"Q"+x$+chr$( 131) :u9$=e$ 
+chr$( 138) +uf$+chr$( 131) +y$ 

32@ q$(9)=d3$+"picture designed by 
ralph prieler"+d3$ 

338 q$( 180) =e$+d5$+” thanks a lot f 

or this work"+d5$+y$ 

348 u$="508" :n2$="computer":0=8:12 
=3:dimpp( 48) ‚n1$(48) ‚m(4®) 

358 senclr:color®,7,4:color4,7,4:c 

olor1,1,6:vol6:u( 1)=3:r( 1)=3 

3608 q$L1)=d2$+"y=up b=down g=left 
h=right s=stop"+d4$ 

378 11$=chr$( 159) +chr$( 96) +y$+chr$ 

( 96) +chr$( 159) +chr$( 96) +y$ 

388 q$(3)=d2$+"y=up b=down g=left 


h=right f=fire"+d4$ 

398 a$l2)=e$+" greetings to msoft, 
ricky,mark and klf"+y$ 

408 q$(8) =e$+d2$+"y=up b=down g=le 
ft h=right s=stop"+d4$+y$ 

418 q$(A)=e$+" greetings to steffi 


cosima and horst"+d2$+y$:0=4 
420 q$l5)="for commodore computers 


c16/c116 and p4" 

438 q$( 6) e$+d5$+"with"+d2$+"1530/ 
1531 or 1541/1551"+d4$+d2$+y$ 

448 q$(7)=" special greetings to p 
sycho-freak erl " 

458 x1$=e$+chr$( 18) +"Z"+chr$( 146) + 


4 


478 rem * rahmen * 


498 ol=1:restore 1938 

588 11=19:printchr$f{ 142) 

518 fora=#t039:char,a,®,chr$( 166) 
528 nexta 

538 fora=1t023:char,@,a,chr$f{ 166): 
char, 39,a,chr$({ 166) :next 

549 fora=1t039:char,a,23,chr$( 166) 
next 

558 : 

568 rem * titelbild * 

578 : 

588 char, 14,3,"future games” 

598 char,9,5,e$+"by martin ralph w 
ollny"”+y$ 

608 char, 16,4,chr$( 149) +"(c) 1987"+ 


618 colori,4 
62@ char, 16,7,i$+i$+i$+i$+i$+iF+i$ 


638 char, 15,8,"N":char,24,8,"M" 
648 char, 14,9,"N c16-c116 M" 

658 char, 13,1@,"N”:char,26,10,"M" 
668 char, 9,18,i$+i$+i$+i$:char,26, 
18,"M":char,30,11,"M" 

678 char, 13,11,"":printg$g$g$g$g$g 
$g$g$ 

688 char1,21,11,"":printg$g$g$g$g$ 
g$ 

698 char,27,18,i1$+i$+i$+i$:char, 38 
„11," M"+i$+i$ 

708 char,34,11,1$ . 

718 char,8,11,"N":char,5,11,i$+i$+ 
i$ 

7208 char, 32,14,"M":s$="" 

738 char,4,13,"M":fora=5t035:char, 
a,13,chr$( 175) :nexta 

748 char, 35,13,"N" 

758 char,4,12,"N":fora=5t035:char, 
a,12,i$:nexta:char, 35, 12,"M" 

768 char,7,14,"N" 


<da> 
<ni> 
<ko> 


<hd> 


<cd> 
<nk> 
<dj> 


<fb> 
<nf> 
<ng> 
<pn> 
<ak> 
<pj? 
<dj> 
<go> 


<eo> 
<em> 
<ik> 
<ic> 


<lc> 
<hn> 


<jb> 


<nn? 
<mo> 


<kf> 
<ck> 
<fo> 
<nd> 
<je> 
<lp> 
<bd> 


<kg> 
<je> 


<jl> 
<oj? 


<mg> 
<ni> 


<ac> 
<gh> 


« 
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778 fora=1t038:char,a, 17,chr$( 168) 
:next 

788 color1,1 

798 ti$="BDOR90R":a=d 

808 : 

818 rem * anzeige tafel * 

828 : 

830 char, 3,19, "time: " 

848 char, 16,19,"score:":char,29,19 
‚"top:" 

858 char, 33,19,u$ 

868 p$=chr$( 162) :pp$=chr$( 131) +p$+ 
p$+p$+p$+p$+p$+p$+p$+pF$+p$+p$ 

878 char,2,21,"power:":char,8,21,p 
p$,® 

888 char,28,21," fighters" 

898 char, 11,15,"press space to pla 
y" 

988 poke65286,27:poke1343, 13 

910 : 

928 rem * titelmelodie * 

930 : 

948 reada:ifa=8then99B 

958 sound1,a,17:geta$:sound2,a-1ß, 
17:vol@:printchr$( 142); 

968 o=0+1:ifo=?7thenxz=xz+i:char,®, 
24,q$(xz) ‚d8:0=B:ifxz=1ßdthenxz=d 
978 fort=1t019:nextt:vol8:ifa$=" " 
then 19868 

989 g0t0948 

998 restore 1838:g0t0948 

1808 : 

1818 rem * datas titelmelodie * 
1828 : 

1838 data169,345,453,516,548,516,4 
53,345,169,345,453,516,548,516,453 
‚345,383,516 

1040 data596,643,665,643,596,516, 1 
69,345,453,516,558,516,453,345,453 
‚571,643,571 

1858 data383,516,596,516,8 

1868 char, 11, 15,d$+d$+d2$ 

1878 fort=1t038:fors=1t015:char,t, 
s,” ":nexts:nextt 

1888 : 

1898 rem * eingabe modus * 
1108 : 

1118 char,B,24,e$+d$+d2$+"(c) 1987 
by martin r. wollny"+y$ 

1128 char,8,2,"future games"+d2$+"” 
(c) 1987":char,4,4,"for commodore c 
omputer c16/116" 

1138 char,4,6,"please choose mode 
from 1 to 3” 

1148 a$="":print:print:printr2$r2$ 
"mode? ";:getkeym$:ifm$=chr$( 28) or 
m$=chr$( 13) thenm$="" 

1158 ifm$=v$orm$=gq$orm$=chr$({ 145) o 


<im> 
<hg> 
<cp> 
<ia> 
<im> 
<ki> 
<do> 


<kb> 
<hj> 


<dj> 


<ch> 
<pl> 


<dd> 
<oi> 
<fn> 
<ao> 
<if> 
<ob> 


<mf> 
<oe> 
<pd> 
<dp> 
<bp> 
<bb> 


<bo> 
<dj> 


<gg> 


<ch> 
<cj> 
<ga> 
<hd> 
<lc> 
<ok> 
<nk> 


<nl> 


<ce> 


<pj? 


<mh> 
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rm$=t$orm$=w$thenm$="" 

1168 m=val(m$) :color1,1:printm$:so 
und1,898,4:b$="" 

1178 ifm>3orm<ithenprintu4$:goto11 

48 

1188 char,4,11,"how do you want to 
be called ?":print:printr2$; :z=® 
1198 getkeya$:color1,1:z=z+1:ifa$= 
chr$( 28) thena$="":z=z-1 

1208 ifa$=v$ora$=g$ora$=chr$({ 145) 0 
ra$=t$ora$=w$thena$="":z=z-1 

1218 ifz=150ra$=chr$( 13) then 1238 
1228 b$=b$+a$:printa$; :sound1,898, 
5:g0t01198 

1238 print:printtab(9)"thanks a lo 
b- LER" 

1248 fors=1t015:fort=1t037:char,t, 
s,” ":nextt:nexts 

1258 char,2,3,"how do you call you 
r spaceship?":printr2$:printr2$:pr 
intr2$; :z=® 

1268 getkeya$:colori,1:z=z+1:ifa$= 
chr$( 28) thena$="":z=z-1 

1278 ifa$=v$ora$=qg$ora$=chr$( 145)o 
ra$=t$ora$=w$thena$="":z=z-1 

1288 ifz=150ra$=chr$( 13) then 1388 
1299 s$=s$+a$:printa$;:sound1,89®, 
5:g0t01268 

1388 n$=1left$(s$, 18) 

1318 char,2,7,"welcome on board of 
the":char,27,7,n$ 

1328 print:printr2$”i wish you ag 

ood and nice flight” 

1338 print:print:printtab( 16) "the 
space controll"” 

1348 fort=1t078®8:nextt 

1358 fort=1t038:fors=1t015:char,t, 
s,” ":nexts:nextt 

1360 ti$="DOB000” 

1370 : 

1388 rem * start *® 

1398 : 

1488 char, 13,8,"*###* start **#" 
1418 printchr$( 142) :color1,1 

1428 vol8ß:fora=1t048:sound3, 348,2: 
sound, 188,1:sound2, 1,1 

1438 1k=val(ti$) :1k$=str$(1k) :char 
‚8,19,1k$ 

1448 nexta 

1458 : 

1468 rem * spielfeld * 

1470 : 

1488 poke65286, 11 

1496 char, 13,8,d$+d3$ 

1588 fora=1t038:char,a, 16,x$:1k=va 
1lti$) :1K$=str$(1k) :char,8,19,1k$: 

nexta 

1518 fora=1t038:char,a,1,x$:nexta 
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‘528 fora=1to5:char,1,a,chr$( 171): 
sexta:char, 1,6,2$:char, 1,9,x$ 

1539 fora=18to15:char, 1,a,chr$( 171 
):nexta:fora=7to12:char,38,a,c$:ne 
«ta 

1548 fora=13t015:char,32,a,c$:next 
a:fora=36t038:char,a,13,z$:nexta 
1558 char,36,14,c$:char,38,6,x$:ch 
ar,38,2,c$ 

1568 char,38,3,z$ 

1578 char, 37,14,"Q" 

1588 char,38,14,"Q" 

1598 char,38,15,"@” 

1688 poke65286,27:poke1343,8:poke I 
343,8:t1$="000008" 

1618 

1628 rem * modus abfrage * 

1638 

1648 ifm=1Ithenwr=4:s(2)=15 

1658 ifm=2thenwr=3:s(2)=12 

1668 ifm=3thenwr=2:s([2)=18 

1678 

1688 rem * spielbeginn * 
1690 : 

1708 t=14:1=15 
1710 geta$:x=t:y=i:0o=otl:ifo=s(2)t 
hengosub2968 

1728 ifo=5then3298 

173a8 ifo=ithen3468 

1749 ifti$>"O083BR"then2568 

1758 ifa$="g"then2248 

1768 ifa$="h"then2388 

1778 ifa$="f"then2648 

1788 ifa$="y"then1938 

1798 ifa$="b"then2888 

18080 ifa$="s"thengosub3438 

1818 lk=val(ti$) :1k$=str$(1k) :char 
1,8,19,1k$,8 

1828 ifti$>"000288"andol=1andti$<” 
B88228"thengosub286B 

1838 goto1858 

1848 char,x,y,d3$:v=v+1 

1858 char,t,i,uf$:printchr$( 142) 
1868 ifv=2ßthengosub2748 

1878 char, 32,21,str$(wr) ,® 

1888 ifwr<dthengosub2598 

1898 goto1718 

1980 : 

1918 rem * ufo nach oben * 

1928 : ö 

1938 i=i-1:ifh<>iandi>11andi<s1i6and 
t>2andt <38then 1848 

1948 ifi<2then2568 

1958 ifi=1landt=11ori=11landt+1=11o 
ri=11 andt+2=11then2568 

1968 ifi=11andt=11+1ori=11andt=11+ 
2then2568 

1978 ift>35andi<>4andi<>5then2568 


1988 ift=rrandi=uuthen2568 

1998 ift+1=rrandi=uuthen2568 

2u09 ift=uYgandi=hort+1=u9andi=hort 
+2=u9andi=hthen2568 

2818 ift+2=rrandi=uuthen2568 

2928 ift<2andi<>7andi<s>8then2568 


2038 ift>33andi>12then2568 
2848 goto1848 


2850 

2868 rem * ufo nach unten *# 

2078 : . 

2888 i=i+1:ifh<>iandi>11andi<16and 
t>2andt<3®8then 1848 

2898 ifi>15then2568 

21988 ift>29andt<33andi>12then2568 
2118 ift=u9andi=hort+1=u9andi=hort 
+2=u9andi=hthen2568 

2128 ifi=1landt=11ori=1landt+1=11o 
ri=11 andt+2=11then2568 

2138 ifi=1landt=11+1ori=11andt=11+ 
2then2568 

2148 ift>33andi> 12then2568 

2158 ift=rrandi=uuthen2568 

2168 ift+1=rrandi=uuthen2568 

2178 ift+2=rrandi=uuthen2568 

2188 ift<2andi<>7andi<>Bthen2568 
2198 ift>35andi<s>4andi<>5then2568 
22088 goto184B 

2210 : 

2228 rem * ufo nach links * 

2238 : 

2248 t=t-1:ifh<>iandi>11landi<i6and 
t>2andt<3@then 1848 

2258 ift<33andi>12andt>31then2568 
2268 ifi=41andt=11ori=1iandt+1=11o 
ri=11 andt+2=11then2568 

2278 ift=u9andi=hort+1=u9andi=hort 
+2=u9andi=hthen2568 

2288 ifi=1landt=11+1ori=11andt=11+ 
2then2568 

2298 ift<2andi<>7andi<>8then2568 
2388 ift=rrandi=uuthen256® 

2318 ift+1=rrandi=uuthen2568 

2328 ift+2=rrandi=uuthen2568 

2338 ift<2andi>6andi<9theni=4:t=35 
2348 goto1848 

2358 : 

2368 rem * ufo nach rechts * 

2378 : a 

2388 t=t+1:ifh<>iandi>11andi<16and 
t>2andt<38then 1848 

2398 : 

2488 ifi>12andt=38then2568 

2418 ifi=1landt=11ori=11andt+1=11o 
ri=11 andt+2=11then2568 

2428 ifi=11iandt=11+1lori=1landt=11+ 
2then2568 

2438 ift+1=rrandi=uuthen2568 
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2448 ift+2=rrandi=uuthen2568 

2458 ift=rrandi=uuthen2568 

2460 ift>32andi>12andi<15then2568 

2478 ift>35andi<>4andi<>5then2568 

2488 ift=u9andi=hort+1=u9gandi=hort 

+2=u9andi=hthen2568 

2498 ift=35andi=15thenchar1,x,y,d3 

$:char,t,i,uf$:goto2918 

2588 ift>34andi>3andi<6thent=1:i=7 

2518 goto1848 

2528 : 

2538 rem * absturz des ufos * 

2540 : 

2558 ol=1 

2568 wr=wr-1:11=19:char,8,21,pp$:t 

i$=-"0H0008":char,8,19, dag: ifwr=8th 

en2598 

2578 fora=1to1ß:sound3, 268,2:sound 
3,598,1:char,x,y,u9$:nexta 

2580 iin, 1A,i:char,x,y, aa: t=14 
:i=18} goto1840 

2598 char, 13,6,"game over" 


2688 goto 3878 
2618 : 

2628 rem * feuer * 
2638 


2648 ift+1=vBandi>5andol=9thenti$= 
"OBORna":ol=1:char,4,4,x1$:char,8, 
19,d4$ 

2658 ift+1=u9andi>hthen3488 

2668 ift>33andi>12then 1848 

2678 ifi>tlandt+1=1liori>iiandt+1=1 
1+lori=11landt+1=11+2then3338 

2688 ift+1=rrandi>uuthen3dd2 

2698 fora=i-1t02step-1:sound3,458, 
1:char,t+1,a,"B":sound2,26®8, 1:char 
‚„t+1,a," ":nexta 

2708 g0t01848 

2718 : 

2728 rem # treibstoffverlust * 
2730 : 

2748 11=11-1:v=®:char,11,21," ":so 
und2,898,2:ifl1<9then2768 

2758 return 

2768 ift<i4thengosub2828 

2778 ift>14thengosub2848 

2788 wr=wr-1:ifwr<8then2598 

2798 char,t,i,d3$:fora=ito15S:char, 
t,a,uf$:sound1,258,3:char,t,a,d3$: 
nexta 

2888 i=15:t=14:fora=1to1ß:sound3, 2 
68,2:sound3,599,1:char,t,i,u9$:nex 
ta 

2818 char,8,21,pp$:11=>19:ti1$="8088 
88@":char,8, 19,d5$:g0t01848 

2828 char,t,i,d3$ 

2838 fora=tto14:char,a,i,uf$:sound 
1,250,3:char,a,i,d3$:nexta:t=14:re 


<kc> 
<ne> 
<cf> 
<mi> 


<nd> 


<nc> 
<ii> 
<ie> 
<pn> 
<og> 
<cf> 
<di> 


<ce> 
<nn> 


<pi> 
<kj? 
<mp> 
<lc> 
<jp> 
<nk> 


<ci> 
<eg> 
<hk> 


<fi> 
<eo> 


<og> 
<gm> 
<hl> 
<np> 
<kd> 


<fi> 
<bp> 
<em> 
<eg> 
<gc> 


<cf> 


<kc> 


<pi> 
<la> 


turn 

2848 char,t,i,d3$ 

2858 fora=ttol4step-1:char,a,i,uf$ 
:sound1,25@0,3:char,a,i,d3$:nexta:t 
=14:return 

2868 v8=int(rnd( 1) #38) +1:ifvB<4the 


n2868 
2878 char,v8,4,"2":sound1,5,18:ol= 


9:return 

2888 : 

2898 rem * auftanken * 

2908 : 

2918 11=11-1 

2928 11=11+1:ifl1=19thenchar ‚8,21, 

" "4+d$:11=B 

2938 fora=1t058:geta$:ifa$="g"then 

1848 

2948 nexta:t=35 

2958 char,11,21,p$:sound1,898,2:g0 

t02928 

2968 char,r(1),ul1)," 
1 

’ 

2978 rr=int(rnd( 1)*36) :ifrr<3then2 

978 

2988 uu=int(rnd( 1) *9) :ifuu>3doruu< 

3then2988 

2998 u( 1)=uu:r( 1)=rr:char,rr,uu,e$ 

+"Q"+y$:0=@:return 

3898 ift>33andi> 12then1848 

3818 fora=i-Itouustep-1I:char,t+t1,a 
‚"B":sound3,45®8,1:sound2, 268, 1 

3828 char,t+1,a," ":nexta:uu=s@:rr= 

8 

3838 pp=pp+18:char,23,19,str$(pp): 

goto 1848 

3848 : 

3858 rem * spielende * 

3868 

3078 fora=1828tolstep-2:soundi,a,1 
:sound2,a,1:nexta 

3888 : 

3898 rem * rangliste * 

3188 : 

3118 n1$=left$(b$,8) 

3128 scnelr:ifpp>val( u$)thenu$=str 

$Cpp) :n2$=n1$ 

3138 char,38,®8,chr$( 159) +"(c)} 1987" 

+y$ 

3148 print:print:printtab(4)n1$" g 

ot in mode"m 

3158 printtab(4) "with the spaceshi 

p "n$",":color1,1 

3168 printtab(3)pp" points" 

3178 vi=v1+1:pp( v1)=pp:n1$(lv1)=n1$ 
:m(vi)=m 

3188 print:print:print"player:"” 

3198 fora=1tovi:printtab( 2)ni$(la)t 

ab( 11)pp(la)tab( 17)” in mode”;m(a): 


":sound1,898 
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nexta 

3288 print:printd2$"the best is "n 
2$" with "u$” points":pp=® 

3218 print:print 

3228 printchr$( 138) chr$( 18) d$"pres 
s space to return"”d4$d4$chr$( 146) c 
hr$( 131) 

3238 getkeyo$ 

3248 ifo$<>" "then3238 

3258 restore 1938: g0t0358 

3268 : 

3278 rem * lichtspiegel * 

3288 : 

3298 char,12,11,d3$ 

3388 ifol><ithenchar,v8,4,"” ":ol=1 
:v8=2 

3318 11=int(rnd( 1) #34) :if1l1<3then3 

318 

332@ char,11,11,11$:12=11:printchr 

${ 131) :printchr$({ 132) :goto1868 
3338 fora=i-1to12step-1I:char,t+1,a 
it = Val £ 

> 

3348 sound3,458,1:sound2, 268, 1 
3358 char,t+1,a," ":nexta 

3368 fora=12toi:char,t+1,a,"B" 
3378 sound3,458,1:sound2, 268, 1 
3388 char,t+1,3," ":nexta 

3390 goto2568 

3408 : 


3418 rem * anhalten des programms 
+ 


3428 : ; 

3430 sound1,988,18:tt$=ti$:char,3, 
24 ,e$+"stop"+y$ 

3448 geta$:printchr$( 142): :ifa$<>" 
s"then3448 

3458 sound1,988, 18:ti$=tt$:char,3, 
24,d5$:return 

3468 u9=int(rnd(B)*30) :ifu9<3 or u 
9=t or u9=t+1 or u9=t+2then3468 
3478 char,u8,h," ":char,u9,i,chr$( 
118) :u8=49:h=i:g0t01838 

3488 fora=itohstep-1:char,u9,a,"B" 
:sound3,458,2:sound1,1,1:char,u9,a 
‚„“ "znexta:pp=ppt+t28 

3498 char,23,19,str$(pp) :u9=®:goto 
1848 

3588 y$=chr$( 144) :w$=chr$( 148) :v$= 
chr$( 147) :t$=chr$( 17) :q$=chr$( 19) 
351@ g$=chr$( 163) :i$=chr$( 164) ’e$= 
chr${5) :c$=chr$( 179) :z$=chr${ 177): 
x$=chr$( 178) 

3528 d$=chr$( 32) :d2$=d$+d$:d3$=d2$ 
+d$:d4$=d3$+d$:d5$=d4$+d$:d$=d5$+d 
5$:return 

3530 rem ==================220==== 
3548 rem 12277 bytes memory 

3558 rem 89922 bytes program 


<jo> 


<fa> 
<ci> 


<jp? 
<fm> 
<ff> 
<hf> 
<ml> 


<fd>. 


<pd> 
<jf> 


<mn?> 
<ma> 
<bi> 
<gb> 
<hf> 
<mb> 
<cg> 
<od> 
<hn> 
<pa> 


<oe> 


<pb> 
<am> 


<aa> 
<af> 
<gc> 
<lo> 


<ng> 


<be> 
<kj> 


<lc> 


<ee> 


<gj? 
<el> 
<fj> 
<ei> 


3568 rem 89392 bytes variables <oh> 
3578 rem 89788 bytes arrays <pk> 
3588 rem 98918 bytes strings <bi> 
3598 rem 988273 bytes free (B) <bg> 
3600 zum me er u 


2oo0 
0000 


I 


The Box of Skill 


The Box Of Skill ist eigentlich kein Spiel, 
sondern ein Programm, welches Ihr Reaktionsver- 
mögen, Ihre Aufmerksamkeit und Ihre Konzentration 
prüft. Es enthält jedoch mit seiner Grafik und seinem 
Sound auch spielerische Elemente. 


Programmablauf: 
Nach dem Start erscheint das Titelbild mit Musik. 
Drücken Sie Taste SPACE und Sie können die An- 
ee 5 zu sortierenden Chips bestimmen (Tasten 

is 3). 
Anschließend legen Sie die maximale Bedenkzeit für 
einen Chip fest (ebenfalls Tasten 1 bis 3). 
Jetzt erscheint das Hauptbild. Darauf sehen Sie eine 
Box mit zehn Einwurfschlitzen, numeriert von 1 bis 
10 und in zehn verschiedenen Farben. 
Oben links im Bild sehen Sie nach einer kurzen Ton- 
folge einen Chip mit einer zufällig ausgewählten 
Farbe. 
Ihre Aufgabe ist es, möglichst schnell die richtige 
Taste zu drücken. Haben Sie die richtige Taste (Far- 
be) erkannt, fällt der Chip in den dafür vorgesehenen 
Schacht. Waren Sie zu langsam, erscheint die Meldung 
— Zu spät —! Bei einem falschen Tastendruck bekom- 
men Sie die Meldung —Fehler-—. 
Wenn Sie die vorher gewählte Anzahl Chips verbraucht 
haben, erhalten Sie Ihre Bewertung! 50 Prozent soll- 
ten Sie aber mindestens schaffen! 
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THE BOX OF SKILL 


18 rem the box of skill =======c16 
28 rem (p) commodore-welt-team 

30 rem =================22====5=== 
48 rem (c) by h.muehlbacher 

58 rem waging am see 

68 rem 

78 rem basic v3.5 

88 rem c16/116/plusä 

98 rem =========================== 


1808 poke55,8:poke56,56:c1lr:gasub25 
68 

118 scnclr:color ®,1:color4,1 

128 poke 1344,64:trap 488 

138 poke 65298, peek( 65298) and251 
148 poke 65299, peek( 65299) and3orS56 
158 for i = B to 17 read a 

168 poke819+i,a:next:sys8B19 

178 for za=14856 to 15196 step 8 
188 for i=@to7:read a 

198 if a=999 then 488 

288 poke zati,a:nexti :nextza 

218 data162,0,189,0,288, 157,8,56,1 
89,8,289, 157,0,57,282,208,241,96 
228 data 63, 127, 255, 255, 255, 2 
55, 255, 255 

238 data 252, 254, 255, 
255, 255, 255 

240 data 255, 255, 255, 
255, 127, 63 

258 data 255, 255, 255, 
255, 254, 252 

260 data 1, 2, 4, 8, 
28 

278 data 8, 8, ®&, 8, 8, 8, 8, 255 
288 data 255, ®, 8, 8, 8, 8,0,08 
298 data 129, 1380, 132, 136, 144, 
168, 192, 128 

388 data 255, 8, 8, 8, 8, 8, 8, 25 
5 

318 data 16, 8, 
8 

328 data 15, 8, 8, 8, 8, 8,8,08 
338 data 8, 9, 8, 8, 8, 08, 8, ı5 
348 data 8, 8, Bd, 8, 8, 8, 8, 248 
358 data 248, 8, 8, 8, 8, 08,08,8 


255, 255, 
255, 255, 
255, 255, 


16, 32, 64, 1 


16, 8, 16, 8, 16, 


360 data ®, 126, 255, 255, 255, 2 
55, 126, 8 

370 data 128,128,128,128,128,128,1 
28,128 


388 data 1,1,1,1,1,1,1,1 

398 data 999,999,999,999,999,999,9 
99,999 R 

400 a=8:b=9:c=B:d=B:e=d:f=B:g=B:h= 
8:1=8:j=8 

418 gosub 1859:color1,8 

428 char1,6,11,"the box of skill!" 
438 char1,6, 12, "=================" 
448 char1,3,23,re$+"(c) 1986 by mu 


<ed> 
<ie> 
<ng> 
<le> 
<ff> 
<ah> 
<nl> 
<ki> 
<jg> 


<bb> 
<gm> 
<ne> 
<ko> 
<kj? 
<ee> 
<fb> 
<bp> 
<no> 
<1j> 
<ko> 


<hd> 
<le> 
<bj> 
<kj> 
<hd> 
<bl> 
<kk> 
<dl> 
<di> 
<ng> 
<ih> 
<ei> 
<ba> 
<ai> 
<mc> 


<1h> 


<pd> 
<1lm> 


<fi> 


<1h> 
<fi> 
<ij> 
<oi> 
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ehlbacher" 

a58 11=-1 v1 

468 restore 598 

478 do 

488 vol B 

498 geta$ 

508 if a$ = " " then 828 

51@ reads,l 

528 1=1+11 

538 soundi,s,1:sound2,s+tv,1 

548 loop until s=B 

S5@ 11=11+1:v=vV+1 

568 if v>3 then 828 

578 goto469 

588 mh=41862 

598 data739,18,770,18,798,10,770,1 
0,739,10,7780,38 

688 data739,10,779,10,798,190,770, 1 
0,739,190,7790,38 

618 data784,18,739,10,778,18,739, 1 
0,784,18,739,38 

628 data784,18,739,10,770,10,739, 1 
08,784,108,739,38 

630 data685,19,704,10,739, 10,784, 
0,685,18,7804,38 

648 data6B5,18,784,10,739,10,704,1 
8,685,10,704,38 

658 data643, 18,685, 10,784, 18,685, 1 
0,643,10,685,38 

668 data643, 18,685, 10,704,18,685, 1 
0,643,18,685,38 

678 data779,5,739,5,784,5,685,5,64 
3,5,685,18,643,28 

680 data798,5,770,5,739,5,784,5,68 
5,5,704,10,685,28 

698 data834,5,818,5,798,5,778,5,73 
9,5,7780,18,739,28 

708 data854,5,834,5,8108,5,798,5,77 
8,5,798, 18,770,28 

718 data864,5,854,5,834,5,818,5,79 
8,5,819,10,798,28 

728 data854,5,834,5,810,5,798,5,77 
08,5,798,18,770,28 


730 data834,5,810,5,798,5,770,5,73 


9,5,770,18,739, 20 

740 data818,5,798,5,770,5,739,5,7® 
4,5,739,10,784, 208 

750 data798,5,770,5,739,5,704,5,68 
5,5,704,18,685,28 

768 data778,5,739,5,704,5,685,5,64 
3,5,685, 10,643,28 

778 data739,18,770,10,798,10,770,1 
0,739,10,770,30 

788 data784,12,739,12,770,12,739,1 
2,704,12,739,35 

790 data685, 15,704,15,739,15,704, 1 
5,685, 15,704,45 

800 data643,20,685,20,704,20,685,2 


THE BOX OF SKILL 


2,643,280,685,68 

818 data 1819,30,8,3 

828 scncelr 

838 char1i,11, 2,ye$t"anzahl der ch 
ips?" 

848 char1,11, 3, ye$+"6666666666666G 
6666" 

858 char1,17, 6,re$+rn$+"1"+rf$+b2 
$+"10" 

868 char1,17, 8,bl$+rn$+"2"+rf$+b2 
$+"20" 

878 char1,17,18,gr$+rn$+"3"+rf$+b2 
$+"50" 

888 get a$ 

898 if a$="1" then sz=iß:fq=1ß:got 
0938 

g9a8 if a$="2" then sz=28:fgq=5:goto 
938 

919 if a$="3" then sz=59:fgq=2:goto 
938 

928 goto 888 

938 char1,14,14,ye$+"bedenkzeit?" 
948 char1, 14,15, ye$+"G6G6666666G6G6G" 
958 char1,13,18,re$+trn$+"1"+rf$+b2 
$+"2 sekunden” 

968 char1,13,28,b1$+rn$+"2"+rf$+b2 
$+"3 sekunden" 

978 char1,13,22,gr$+rn$+"3"+rf$+b2 
$+"5 sekunden” 

988 get a$ 

998 if a$="1" then wz=14:goto1930 
1B80 if a$="2" then wz=21:g0t01038 
1818 if aß="3" then wz=38:g0t01838 
1028 goto 988 

1932 gosub254B:gosub1868:gosub2138 
1848 char 1,1,1,b3$ 

1858 char 1,1,2,b3$ 

1868 char 1,1,3,b3$ 

1878 an = ant1 

1888 if an>sz then 1828 

1892 sound1,818,4:sound2,811,4 
1188 sound1,834,4:sound2, 835,4 
1118 sound1,854,4:sound2,855,4 
1128 sound1,834,4:sound2,835,4 
1138 sound1,818,4:sound2,811,4 
1148 fF=eint(rnd( 1)*18) +4 

1158 if f=4 then a=sat1:goto1258 


1168 if f=5 then b=b+1:goto1268 
1178 if f=6 then c=c+1:g0t01278 
1180 if f=7 then d=d+1:g0t01288 
1198 if f=B then e=se+ti:g0t01298 
1288 if f=9 then ff=fFf+1:goto1308 


1218 if F=1ßdthen g=g+1:goto131® 
1228 if f=1ithen h=h+1:g0t01328 
1238 if f=12then i=it1:goto1338 
12408 if f=13then j=jt1:goto1348 
1258 if a>7 then 1148:else1358 
1268 if b>7 then 1148:else1358 


<jl> 
<ab> 
<fg> 
<eb> 
<cj? 


<ok> 


<kg> 


<em> 


<me> 
<el> 
<ji> 


<pa> 
<ih> 
<pg> 
<hn> 


<1j> 
<od> 


<cm> 
<oh> 
<kk> 
<hp> 
<kb> 
<mj? 
<11> 
<db> 
<cj? 
<kb> 
<bn> 
<ie> 
<bf> 
<pj? 
<gp> 
<hj> 
<if> 
<nm> 
<ak> 
<en> 
<fa> 
<pl> 
<pe> 
<ck> 
<ih> 
<hi> 
<be> 
<ah> 
<nl> 
<on? 
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1278 if c>7 then 1148:else1358 
1288 if d>7 then 1148:else135® 
1298 if e>?7 then 1148:else1358 
1388 if ff>7 then 1149:else1358 
131@ if g>7 then 1148:else1358 
1328 if h>7 then 1148:else1358 
1338 if i>7 then 1148:else1358 
1348 if j>7 then 1148:else135® 


135@ color1,f,5 


1360 char 1,1,1,"A"+rn$+" "+rf$+"B 


1370 char 1,1,2,rn$+b3$+rf$ 
1388 char 1,1,3,"C"+rn$+" "+rf$+"D 


1398 ws=® 
1488 get a$ 
1418 ws=wst1 


1428 if ws> wz then ws=8:g0t01698 


1438 if 3$="1"then vg=1:po=3637: 


=83:g0t01548 

1448 if a$="2"then 
=84:g0t01548 

1458 if a$="3"then 
=85:g0t01548 

1468 if a$="4"then 
=86:g0t01548 

1478 if a$="5"then 
=87:g0t0o1548 

1488 if a$="6"then 
=88:g0t01548 

1498 if a$="7"then 
=89:g0t01548 

1588 if a$="8"then 
=98:g0t01548 

1510 if a$="9"then 
=91:goto1548 

1528 if a$="8"then 
a=92:goto1548 

1538 goto 1488 


vg=2 
vgo=3 
vg=4 
vg=5 
vg=6 
vg=7 
vg=8 


vg=9 


:po=3639: 


:po=3641 


:po=3643: 
:po=3645: 
:po=3647: 
:po=3649: 
:po=3651: 


:po=3653: 


fa 


fa 


:fa 


fa 


fa 


fa 


fa 


fa 


fa 


vg=18:po=3655:f 


1548 if vg<>f-3 then goto 1680 


1558 poke po,79:poke( po-1824) ‚fa 


1568 sound1,188,2:sound3, 998,2 


1578 po=po+48 


1580 if peek(po)<>32 then 1848 
1598 poke (po-48) ,32:goto 1558 
1688 char1,11,12,ye$+"fehler!":fe= 


fe+1 


1610 sound1,388,38:sound2, 383,38 


1628 for w2=1to 15@8:next 
1638 char1,11,12,ye$+b4$+b3$ 


1648 get a$ 

1658 get a$ 

1668 get a$ 

1678 get a$ 

1688 goto1848 

1698 rem zu spaet 
1788 char 1,1,1,b3$ 
1718 char 1,1,2,b3$ 


Nr. 12/87-Dezember 4. Jahrgang-DM 5,50/ÖS 46 /SRF 5,50 | THE BOX OF SKILL-— 3 | 


1728 char 1,1,3,b3$ <hh> 
m 1738 char1,19@,12,ye$+"zu spaet!":f 

Eee — — N e=fe+1 <hd> 

1748 sound1,288,38:sound2,248,3® <ep> 

1758 for w2=1to 15B@:next <gi> 

; 1768 char1,18,12,ye$+b5$+b4$ <ko> 

8 1770 get a$ <la> 

& 1788 get a$ <aa> 

& 1798 get a$ <en> 

& 1800 get a$ <kf> 

1818 goto 1948 <jo> 

1828 rem auswertung <ff> 


1838 char,2,12,"":printye$"deine 1 
eistungsnote ="(sz-fe)*fg;c1$"”%" <en> 


1849 clr:gosub256B:goto 458 <af> 
1858 scnelr <gk> 
2 3 1868 color@,1:color4,1:color1,2,5 <Ic> 
SENSATION!: - 1878 char1,10,8,"FFFFFFFFFFFFFFFFF 
Jetzt passt), - = FFFFFFFFFFF" <al> 
jeder a] 1888 chari, 9,1,"E FFFF FFFF FFFF 
Centronics- | FFFFOFFFF"+b2$+"EP" <od> 
Drucker an 1898 char1,8,2,"E E"+b3$+"EE"+b3$+ 
ihren C16/P4! "EE"+b3$+"EE"+b3$+"EE"+b3$+"E EEP" <lc> 
Für 20 Mark. g 1988 char1,7,3,"E E"+b3$+"EE"+b3$+ 
"EE"+b3$+"EE"+b3$+"EE"+b3$+"E EEEP 
* <dk> 
Computer-Titel 19398 char1,6,4,"E E"+b3$+"EE"+b3$+ 
"EE"+b3$+"EE"+b3$+"EE"+b3$+"E EEEE 
p” <og> 
aus dem CA-Verlag 1928 char, 5,5,"E FIIIGFIIIGFIIIG 
uni nn FIIIGFIIIG EEEEEP" <be> 


1938 char1,4,6,"E E"”+b3$+"EE"+b3$+ 
"EE"+b3$+"EE"+b3$+"EE"+b3$+"E EEEE 
EEP” <ka> 
1948 char1,3,7,"E E"+b3$+"EE"+b3$+ 
"EE"+b3$+"EE"+b3$+"EE"+b3$+"E EEEE 
EEEP" <fh> 
1958 char1,2,8,"E E"+b3$+"EE"+b3$+ 
"EE"+b53$+"EE"+b3$+"EE"+b3$+"E EEEE 
EEEEP" <hc> 
1968 chari, 1,9, "E"+b2$+"G66G 6666 
6666 6666 6666 EEEEEEEEEP" <ij> 
1978 char1,B, 18, "QG666666G6G6GGGGGG 
GEGEGGEBEEGGEGGGHEEEFEEEEP" <ng> 
1988 char1,0,11,"Q"+b$+b$+b4$+hA$+ 
"HEEEEEEEEP" <nb> 
1998 char1,8,12,"Q"+b$+h$+h4$+b4$+ 
"HEEEEEEEEP" <nj> 
2888 char1,8,13,"Q"+b3$+"LFFFFFFEF 
FFFFFFFFFFFM"+b4$+"HEEEEEEEEP" <ci> 
2818 char1,8,14,"Q"+b3$+"J 344 J 
J4yJdJ 4 J"+bA$+"HEEEEEEEEP” <ka> 
2828 char1,8,15,"Q"+b3$+"J) J J JJ 
JJyJydJ J"+bA$+"HEEEEEEEEP" <ci> 
2838 char1,8,16,"8"+b3$+"J J JJJ 
J4JJ,J J J"+bA$+"HEEEEEEEE" <ak> 
2848 char1,8,17,"Q0"+b3$+"3 3 JJ 4 
J4JyJJJ J"+bA$+"HEEEEEEE" <oa> 
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20858 char1,8,18,"Q"+b3$+"J J J JJ 2568 b$=chr$( 32) :b2$=b$+b$ <cl> 
J4J J J J"+bA$+"HEEEEEE" <kj> 2578 b3$=b2$+b$:b4$=b3$+b$ <jf> 
2868 char1,0,19,"Q"+b3$+"J) JJJJ 2588 b5$=bA$+b$:b$=b5$+b5$ <md> 
JJ 4 .J J J"+bA$+"HEEEEE" <ei> 2598 rem * farbceodes/steuercodes *# <kc> 
2878 char1,8,28,"Q"+b3$+"J JJ JJ 2688 rn$=chr$( 818) :re$=chr${ 828) <bj> 
JJJ dd J"+bA$+H"HEEEE" <fi> 2618 gr$=chr$( 838) :b1$=chr$(831) <jb> 
20888 char1,8,21,"Q"+b3$+"J J J J J 2628 rf$=chr$( 146) :c1$=chr$( 157) <pc> 
J4 44 J J"+bA$+"HEEE” <gh> 2638 ye$=chr$( 158) <dg> 
20898 char1,8,22,"Q"+b3$+"KGG6GGG66G 2648 return <ec> 
G66666GG6B6GN"+bA$+"HEE” <pd> 2658 rem =========3=====7=== 72 Ccd> 
2188 char1,8,23,"Q"+b$+b$+b4$+b4$+ 2668 rem 12277 bytes memory <gg> 
"ug" <np>. 2678 rem 97669 bytes program <cj> 
2118 char1,8,24,"aAFFFFFFFFFFFFFFFF 2688 rem 88182 bytes variables <ni> 
FFFFFFFFFFFFH" <nk> 2698 rem 98098 bytes arrays <bm> 
2128 return <co> 27800 rem 82488 bytes strings <cj> 
2138 color1,4,5 <ec> 27108 rem 88368 bytes zeichensatz <jp> 
2148 chari,11,2,rn$+b3$ <pg> 2720 rem 02818 bytes free (B) <hh> 
2158 char1,10,3," 1 " <ef> 
2168 char!, 9,4,b3$+rf$ <bf> 
2178 color1,5,5 <ge> 
2188 char1,16,2,rn$+b3$ <lg> 
2198 char1,15,3," 2 " <mb> 
2208 char1,14,4,b3$+rf$ <jj> 
2218 color1,6,5 <fo> 
2228 char1,21,2,rn$+b3$ <gi> 
2238 char1,28,3," 3 " <ed> 
2248 char1,19,4,b3$+rf$ <hb> 
2258 color1,7,5 <ha> 
2268 char1,26,2,rn$+b3$ <mj> 
2278 char1,25,3," 4" <ni> 
2288 char1,24,4,b3$+rf$ <ni> 
2298 color1,8,5 <hg> 
2388 char1,31,2,rn$+b3$ <pg> 
231® char1,30,3," 5 " <ff> 
232® char1,29,4,b3$+rf$ <ic> 
2338 color1,9,5 <im> 
ainzem =  Mierchant 
2350 charı, 6,7," 6 “ <no> 
2368 chari, 5,8,b3$+rf$ <hd> Ex 
2378 color1,10,5 <pn3 Servi e<I -- 
2388 char1,12,6,rn$+b3$ <hj> 
2398 char1,11,7," 7" <fo> Ein Handelsspiel, das sich durch eine gut gelungene 
2408 char!,18,8,b3$+rf$ <ie> Grafik auszeichnet. 
2418 color1,11,5 <di> Sie sehen nicht einfach nur eine Tabelle mit allen 
2428 charı,17,6,rn$+b3$ <bj> möglichen Gütern vor sich, sondern befinden sich 
2438 chari 167 "8 ” <ahb kurz nach Spielbeginn im Cockpit eines Raumschif- 
Be al fes. Mit einem bestimmten Betrag an Geldmitteln, 
2448 char1,15,8,b3$+rf$ <ak> Treibstoff und Sauerstoff versehen, können Sie daran- 
2458 color1,12,5 <ea> gehen, nachdem Sie in der Bank eventuell weiteres 
2468 char1,22,6,rn$+b3$ <pd> Bargeld abgehoben haben, diverse Güter einzukaufen. 
2470 char1,21,7,”" 9 " : <ag> Nachdem Sie einen Planeten Ihrer Wahl angeflogen 
2488 chari 20 8 b3$+rf$ Ft haben, können Sie dort versuchen, durch Verkauf 
Ne 3 Gewinn zu erzielen. Auch der Flug zu einem anderen 
2490 color1,13,5 <ei> Planeten und die Landung sind mit Grafik untermalt. 
2588 char1,27,6,rn$+b3$ <pd> Allzu leicht dürfen Sie sich allerdings so eine Welt- 
2518 char1,26,7," @ " <ni> it Bi een, een es a en 
efahren auf Sie. es nun Meteore, Raumbeben 
ee er ds BASHFFE a oder feindliche Schiffe sind. Wenn Sie Glück haben, 
können Sie aber auch durch Verkauf von benötig- 
2548 senclr <nd> ten Waren an havarierte Schiffe ein schönes Sümm- 
2558 return <in> chen verdienen. a8» 
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18 rem merchant service=========p4 
28 rem (p) commodore-welt-team 

30 rem ===========2===========022== 
48 rem (c) by frank und bernd 

58 rem hoffmann 

68 rem 

78 rem basic v3.5 

808 rem plus4 (c16/116 + 64 kb) 

98 rem ===================2======= 


08 gosub 7638 

1108 gosub6968 

120 p=18:gosub4548 

138 dim p$( 18) ,Fr$( 18) ,p%l 18) :fr$C 
8)="" 

148 fori=itop:read p$(i) :nexti 

158 data luka xi,rela iv,altur i,a 
lIpha z,julain 

168 data airia v,ceti b,waiping,de 
ja i,raumdock 

178 fort=1tolß:readfr$(t) :nextt 
188 data plumbum, aurum,bauxit, ferr 
um,kobalt 

198 data silikat,titan, frankium,ar 
gentum,molybdaen 

208 a$(l 1)=re$+z23$+z23$:a$( 2)=ze$+tze 
$:a$( 3) =zo$+z0$:a$( 4) =z1$+21$:a$(5 
)=rn$+zn$+tzn$+rf$ 

218 a$(6) =-rn$+zm$+zm$+trf$:a$(7)=rn 
$+z22$+22$+rf$:a$( 8) =rn$+b2$+rf$ 
228 goto31B 

238 s2=s2+1:ifs2>=22then258 

248 return 

258 printel$c4$c3$wh$rn$"ihr raums 
chiff haette eine general-"rf$ 

268 printc4$c3$rn$"”ueberholung noe 
tig gehabt."rf$ 

278 printc4$c3$rn$"nun ist es zu s 
paet !!!"rf$ 

288 gosubiB19:g0ot06478 

298 fori=17t024:char1,8,i,b$+b$+rb$ 
+b5$:nexti 

388 char1,1,18,"" 
318 forww=1top 


:return 


328 b=1:d=fnc( 788) 

338 fora=1toww-1 

348 ifp%( a)=dthen328 

358 nexta 

368 p%l ww) =d 

378 nextww 

388 gosub3258 

398 gosub321B:gosub2988 

408 gosub135B 

A1B gosub 1819:printwh$c3$"-1- kurs 


bestimmung" 

428 printc3$"-2- planetenliste" 
438 printc3$"-3- basis-lagerliste" 
448 printc3$"-4- schutzschild"” 

458 gosub4648:m=val(a$) :ifm<Torm>4 


100 


then458 

468 onmgosub1B88,578,478,558:ifm=2 
orm=4orm=1 then4iß:else4B8 

478 gosub 1838: printwh$c4$c3$"-1- k 
aufen"” 

488 printc3$"-2- verkaufen” 

498 printc3$"-3- cockpit" 

5a8 printc3$"-4- bank":printc3$"-5 
- spiel”s2$”"beenden” 

518 gosub4648:a=valla$) :ifa<lora>5 
then518 

528 gosub29%:onagoto 3858,3139,539 
‚5460, 6448 

538 ifjet<dthen 54B:else return 
548 printc4$c3$rn$"sie koennen ";a 
k$;" nicht mit "” 

558 printc4$c3$rn$"schulden verlas 
sen."rf$ 

560 gosub98B:goto478 

578 gosub1818:printhe$wh$c4$cA$; :f 
ori=1to1®:printp$(i), :nexti:gosub1 
Bi@:return 

588 gosub4658:printc3$wh$"wieviel 
schildenergie (fuel) "gr$; :inputs: 
printc4$ 

598 ifs<=dthenreturn 

688 ifs>enthen638 

618 ssd=ssd+s:en=en-s:gosub465B:pr 
intc3$rn$g2$"ok. (j/n)"rf$ 

628 gosub4648:ifa$<>" j"then58ß:els 
ereturn 

638 gosubh35ß: guto5dß 

6408 gosub2988 

658 fore=1to2:ifpme(e)=®thenauf(e) 
=""-jfau$le)=""thenpme(e)=@:nexte 
668 color®,4,8:color4,4,8:printcl$ 
c4$ye$c3$c3$c3$rn$"das raumschiff 
hat kapituliert"rf$ 

678 printc4$c4$pu$c3$rn$"ihr raums 
chiff"rf$ 

688 fFore=1to2 

698 printc4$wh$c3$"-"e"- ";fra$le) 
;‚:printtab( 13)":"1g$;meg(e) 

788 nexte 

718 printc4$c4$1r$c3$rn$"geenterte 
s raumschiff"rf$ 

728 fore=1to2:ifpme( e) >58888thenpm 
e(e) =50888 

738 printwh$c4$c3$"-"e"- " 
:printtab( 13)":"1g$;pme(e) 
740 nexte 

758 printc4$c3$c4$b1$"-1- ladung a 
ustauschen" 

768 printc3$"-2- ladung auffuellen 


‚augle); 


778 printe3$"-3- weiter" 
788 gosub4648 
798 a=val( 3$) :ifa>3ora<1then?88 
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808 onagoto8208,898,818 

818 return 

828 printc4$c3$"ihre ladung ?” 

838 getkeya$:a=valla$) :ifa>2ora<it 

hen838 

848 printc3$"ladung des gekaperten 
schiffes?" 

858 getkeye$:e=valle$) :ife>2ore<it 

hen858 

868 al$=fra$l( a) :a2$=au$fle) :a3=meg( 

a) :a4=pme(e) :fra$(a)= a2$:au$(le)=a 
1$ 

870 meg( a) =a4:pme(e)=a3:ifmeg(a)>5 

B888t henmeg( a) =50888 

880 g0t0668 

898 Fora=ito2:fore=1to2 

988 iffra$la)=au$le)then gosub 928 

918 nexte:nexta:goto66d 

928 ifpme(e) <=8then958 

938 meg( a)=meg(.a)+pme(e) :ifmeg(a)> 

584Bdthenpme( e)=meg( a) -58888 

940 ifmeg( a) >5808B8thenmeg( a) =-5B988 

958 goto66B 

968 gosub4538:printwh$c3$rn$"fehle 

r !"rf$c2$:gosub98B:gosub4538:retu 

rn 

978 Fori=1t0758:nexti:return 

988 fori=1t02888:next:return 

998 fori=1to1®@:next:return 

1888 fori=1t075:nexti:return 

1818 printtab( 16) c4$F1$"[space]"fo 

$ 

1820 gosub4648:ifa$<>" "then 1928 
1838 return 

10848 mez=int(ent%/19/12) 

1858 ifmez<=1 thenmez=1 

1860 sz=sz+tmez 

1878 return 

1888 gosub181@:printhe$c4$c4$wh$c3 

$"kurs"+b2$+":"b1$; :inputkur$: 
10898 ifkur$=ak$then6398 

1188 vol8:sound1,569,38:forj=1to18 
1118 ifkur$=p$( j) then 1138 

1128 nextj:goto1288 

1130 gosub 1298 

1148 printwh$c2$c3$b1$;ak$;wh$"/"b 
1$;kur$;wh$" :"b1$;ent%; "1j." 

1158 printc3$"ok. "F1$rn$"( j/n)"rf 

$fo$ 

1168 gosub4648:ifa$<>"j"then retur 

n 

1178 gosub1818:printwh$he$c3$c3$c3 

$c4$c4$"kursprogrammierung abgesch 
lossen"” 

1188 printc3$c3$c3$c4$c3$"countdow 

n laeuft (t-3 sekunden) "c4$c4$ 
1198 Forh=3toßstep-1:printtab( 17)r 

e$c2$rn$" "rf$ye$;h;re$rn$" "rf$:g 


osub 978 

1288 vol8:sound1,818,3@:nexth:gosu 
b238 

1218 gosub2900:gosub384B:gosub 1998 
:ak$=kur$:ifak$=p$( 18) then1238 
1228 gosub2718:gosub4158:return 
1238 senclr:printtabf( 15)rn$"raumdo 
ck"rf$:printc4$c4$c3$"ihr raumschi 
ff ist ueberholt” 

1248 if( jet+kgh) >188888thenrk=5088 
B:elserk=308B8 

1258 printc3$c4$"und repariert. re 
paraturkosten "fl$;rn$rk;rf$fo$:pr 
inte3$c4$" jet ’s." 

1268 printtab( 12) left$(gqd$,4) "gute 
reise er 

1278 s2=11:jet=jet-rk:0x=588@:en=5 
B89:gosub1ßiß:return 

12808 gosub4539:printwh$c3$rn$”fehl 

er !"rf$:gosub989:gosub4538:goto1® 

88 

1298 fori=1top 

1388 ifak$=p$(i)then1328 

1318 nexti 

1328 ent%=abs( p%l i)-p%l j)) 

1338 ifent%<=B thenent%=1 

1348 return 

1358 color4,15,2:colorß,1 

1368 printlb$cl$rn$" "rf$wh$"stern 
zeit:"g3$sz;1b$rn$bA$bA$rf$tabl 25) 

wh$"basis:"g3$ak$; 

1370 printtab( 39) 1b$rn$" "rf$:foru 

=1t048:printrn$zo$rf$; :nextu 

1388 printtab( 17) rn$left$(gd$,7)1b 

$z8$"U"zh$zh$"I"yg$ 

1398 printrn$zf$"CC"zd$bl$yg$1lb$; 
1488 printtab( 13) rn$z8$b4$”"J"zg$zg 

$"K"bA$ygs$rf$tabl 35) rn$b1$z8$1b$zFf 

$"CC"zd$rrf$ 

1418 printrn$za$rf$b2$rn$zi$bl$" " 


1428 printib$b6$"U"zh$zh$zh$zh$"I" 
rf$b5$rn$b1$z8$1b$b$b2$b1$" "1b$za 
$rf$b2$rn$zisrf$ 

1438 printrn$za$rf$b2$rn$zi$b1l$" " 
Ib$b2$"UCI B"; 

1448 printrf$" "g3$"B"1b$b2$rn$"B" 
rf$lg$" 0"zm$zm$"P"; 

1458 printrn$bl$" *1b$" "rf$g3$zu$ 
zu$zu$lb$rn$" "; 

1468 printrf$zb$z1$z21$21$z1$z1$zq$ 
bl$rn$" "1b$za$rf$b2$rn$zisrfg 
1478 printrn$za$rf$b2$rn$zigbl$" " 
1b$" "rf$z8$” "wh$"B"; 

1480 printlb$" "yg$rn$"J"zg$zg$zeg$ 
za$"K"rt$ig$" "zj$b2$z9$rn$b1l$" "1 
b$" "; 

1498 printrf$g3$zu$zu$zu$lb$rn$" " 


<be> 


« 
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zk$rf$ye$"QQaga"1b$zU$rn$b1$" "1b$ 

za$rf$b2$rn$zi$rf$ 

1588 printrn$za$rf$b2$rn$zi$bl$" " 
1b$"U"rf$b5$rn$"I "; 

1518 printrf$ye$"M"1b$yq$rn$b2$rf$ 
1g$" "zj$b2$; 

1528 printz9$rn$b1$" "1b$" "rf$g3$ 

zu$zu$zu$lb$rn$"” "; 

1538 printrf$zr$rn$z1$z1$z1$z1$z1$ 

rf$zt$rn$bl$" "1b$za$rf$b2$rn$zisr 

f$ 

1548 printrn$za$rf$b2$rn$zigbilg" " 
1b$"B"rf$wh$"C W C"1b$rn$"B "rf$ye 

$"N "1b$rn$b2$; 

1558 printrf$l1g$" L"ze$ze$zp$rn$bl 

$" "1b$b$b2$b1$" "1b$zaßrf$b2$rn$z 

i$rf$ 

1568 printrn$za$rf$b?$rn$zi$gb1$" " 

1b$"J"rf$b5$rn$"K "rf$ye$"M "lb$rn 

$b2$rn$b1$z8$b4$; 

1578 printb1$" "1b$" "gi$chr$( 95) 1 

b$" "gi$chr$( 94) 166" "rf$zBß; 

1588 color1,2,5:print" "z9$zj$1b$"” 
"ya$rn$"” "b1$” "Ib$za$rf$b2$rn$zi 

$rf$ 

1598 printrn$za$rf$b2$rn$zi$b1$” " 

1b$" "yg$rf$wh$" B"; 

1688 printib$" "rn$z8$b2$yqg$rf$ye$ 
"M"1b$rn$b$b2$rf$z8$; 

1618 color1,2,5:print”M "z9$zj$" N 
"1b$yg$rn$b1$" "1b$za$rf$b2$rn$zi$ 
rt$ 

1628 printrn$za$rf$b2$rn$zi$b1l$" " 
1b$b2$"JCK "gi$"VV"; 

1638 printib$b3$rf$re$z9$zj$z9$zj$ 
rn$cy$b4$z1$1b$rf$" "rn$" "rf$; 
1648 color?1,2,5:printb2$"W"z9$zj$" 

N"1b$b2$rn$b1l$" "1b$za$rf$b2$rn$zi 
$rrf$ 

1658 printrn$za$rf$b2$rn$zi$b1$” ” 
1b$zf$zh$zh$zh$zh$zh$zh$zh$zhzhz 
d$" "b$rf$; 

1668 color1,2,5:printb3$"UT"b3$rn$ 

b1$" "1b$za$rf$hb2$rn$zi$rf$ 

1678 printrn$za$rf$b2$rn$zi$b1l$" " 
1b$"B"g1$rf$rn$bAagb3grfgb2grng; 
1688 printlb$"B"rf$lg$"Q"rn$1b$" " 
rf$b5$rn$b1$z8B$1b$" "rF$b1$”"Q"1b$r 
ig, "> 

1698 color1,2,5:printrn$"L"ze$ze$"” 
JK"ze$ze$zp$b1l$" "1b$zasrrf$b2$rn$z 
i$rf$ Is 

1708 printrn$zaßrf$b2$rn$zi$b1$" " 
1b$za$ym$ym$ym$ym$ym$ym$ym$ym$ym$z 
i$rf$re$"g"rn$; 

1718 printlb$" "rf$g2$" "z5$z25$25$ 
z5$rn$b1$" "15$" "rF$1g$"Q"1b$rn$" 
"rf$; 


<hp> 
<ai> 
<nf> 


<pi> 


<ao> 


<ae> 


<cp> 


<nm> 


slf> 


<cf> 
<11> 


<lf> 


<pd> 
<dh> 


<ja> 


<pn> 


<gh> 


<hh> 


<ij> 


<im> 


<pj? 


<hf> 


<oi> 


1728 printibärnspußzfszdßirszrtbzdg 
pugzf$zdbirhzrbzdgbl$" "Ib$zasrrsb 

2$rn$zi$rrf$ 

1738 printrn$zasrf$b2$rn$zisbi$" " 
1b$"B"rf$pu$rn$b3$rf$b2$1b$b4$rn$" 

B"rf$b1$g3$"Q"rn$; 

1748 print1b$" "rf$g2$" "z5$z25$z25$ 
z5$rn$b1l$" "1b$" "rf$wh$"Q"1b$rn$" 
"rf$; 

1758 printrn$pu$zc$zs$1r$zc$zs$pu$ 

zc$zs$1r$zc$zs$b1l$" "Ib$zasrrf$b?2$r 

n$zi$rf$ 

1768 printrn$zc$"CC"zs$b1$" "1b$zc 

$zg$zg$zg$zg$zg$zg$zg$zg$zg$zs$rr$ 

er$"Q"rn$; 

1778 printlb$" "b1$rn$z8$b5$1b$"” " 

rf$br$"Q"1b$rn$b2$rrf$; 

1788 printrn$g1$"+"1b$" "g1$"-"1b$ 
" "g1$"="15$" "giF"H"b1l$" "Ib$ze$" 

C6"zs$ 

1798 forr=sitos2step-1:fori=s4Atos5 
:char,1,r,a$(i):char1,37,r,a$(i) 
1808 nexti:nextr:return 

1810 foru=2to8:char1,@,u,b$+b$+b$+ 

b4$+b4$:nextu 

1828 printhe$c4$c3$:return 

1830 scncelr:color4,6,3:color®, 1 
1848 printtab( 11)wh$rn$"raumschiff 
"rf$h2$rn$ak$rf$tab( 33) rn$"preis"r 

f$ 

1858 printc3$c4$"fuel"b5$":"gr$;en 
;:printtab( 24) pen; :printtab( 34) ope 
1868 printwh$c3$"oxigen"”b3$"”:"gr$; 

ox;:printtab( 24) pox; :printtab(34)q 

pa 

1878 printwh$c3$"matrosen :"gr$;be 
s;:printtab( 24) abes 

1888 printwh$c3$" jets"b5$":"gr$; :p 

rinttab( 11) jet 

1898 gosub4618:printc3$rn$"raumsch 

iff"rf$ 

1988 printc4$c3$"laderaum 1: ";fra 

$C1);tab(25);" :"gr$;meg( 1) 

1918 printwh$c3$"laderaum 2: ";fra 

$(2) ;tab(25);" :"gr$;meg( 2) 

1928 printwh$c4$c3$rn$;ak$;rf$cA$ 
1938 fori=1to3 

1948 ifau$(i)=""then1978 

1958 printwh$c3$;au$(li);tabl 18) wh$ 

” :"gr$;pme(i); 

1968 printtab(28)wh$” t =>"gr$" "; 

pfli);tab( 25)wh$" jets/t" 

1978 next 

1988 return 

1998 scnelr:b=1:d=fnc( 7) :ak$="---- 

28028 ifd>5then4668 

2818 ifd<3then2828:elsereturn 


<ho> 


<mf> 


<ne> 


<gb> 


<em> 


<jd> 


<1l> 


<ko> 
<em> 


<fj> 
<ek> 
<xng> 
<hp> 


<nf> 


<ph> 
<kl> 
<ce> 
<bj> 
<he> 
<ng> 
<em> 
<pn> 
<mc> 
<bj> 
<bc> 
<pf> 
<bf> 
<jc> 


<km> 
<cg> 
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2828 gosub1358 

2838 char, 18,8,re$+rn$+f1l$+"alarm" 
+fo$+rf$ 

2840 gosub2658 

2858 color1,2,4:char1,19,13,rn$+z8 
$tygq$+c4$+c1$+c1$+zb$+tza$+trf$ 

2068 gosub1818:printir$c4$c3$rn$"s 
canner orten u.f.o. "rf$ 

2878 printwh$c4$c3$"-1- angreifen” 
2888 printc3$"-2- anfunken"” 

2898 gosub2658 

2188 gosub4648:a=valla$) :ifa<lora> 
2then2188 

2118 onagoto2130,2378 

2128 print" "rn$"sie muessen jetzt 
kaempfen"rf$ 

2138 b=1:c=fnc( 11) 

2148 gosub1818:printc3$wh$"lasersa 
lven (je 188fe) ";:inputsav 

2158 ifsav=-@then2368 

2168 en=en-sav*1ßß:ifen<=B then 23 

38 

2178 ifsav>3then 2278 

2188 gosub2588:ifsav>=cthen 2288 

2198 ifsav<cthenprintre$c3$c2$rn$" 

lasersalven reichen nicht aus "rf$ 
:gosub98B 

2288 b=1:35s=fnc( 3) :ifas>ithen2238 
2218 printpu$c3$rn$"u.f.o. feuert 
torpedos ab !!!"rf$:fori=®toas:for 
t=8Btoßstep-1:volt 

22208 sound3,576,24:nexti:s2=s2+1:o 
x=0x-( c*#5B) :bes=bes-abs( c-3) :gosub 
238 

2238 b=308:sd=fnc( 288) :c=c-sav:ssd 
=ssd-sd:ifssd<dthen2338 

2248 ifas=1then2268 

2258 printc3$lg$rn$"u.f.o. feuert 
laserbatterien ab !!!"rf$:sav=3:go 
sub2588 

2268 gosub98B:goto2148 

2270 printc2$wh$c3$rn$” max. 3 las 
ersalven "rf$b3$:gosub98B :goto214 
(2) 

2288 b=1:j1=fnc(3) :onj1igoto648, 229 
0,2298 

2298 gosub1818:printwh$c3$rn$" rau 
mschiff zerstoert "rf$ 

2388 fori=3to16:fort=2t07:color@,i 
‚tinextt:nexti:colorß, 1 

2318 char1,19,13,b2$+c04$+c1$+c1$+b 
2$ 

2328 fort=8to@step-1:volt:sound3,2 
17,48:nextt:return 

2330 gosub181@:color@,3,3:printbk$ 
rn$" keine energie mehr vorhanden 
tt! "rf$ 

2348 printfl$"” alles von bord - al 


<dd> 


<ed> 
<mn> 


<am> 


<lg> 
<dk> 
<gm> 
<bl> 


<hb> 


<fh> 


<cj? 
<jc> 


<bf> 
<he> 


<pi> 


<ei> 
<ge> 


<ic> 
<jf> 


<pp> 


<no> 
<nb> 


<jo> 


<im> 
SV? 
<ld> 
<1n> 
<gp> 
<pf> 
<bd> 


<od> 


<ce> 


les von bord"fo$:gosub1B1® 

2358 goto6478 

236® printrn$” keine salve bedeute 
t kapitulation "rf$:gosub1B18 

2378 ondgoto2388, 2458, 2528 

2388 printc1$c4$c4$"das raumschiff 
hat sich als " 

2398 printc4$"ein robot-gesteuerte 

r erzminen-" 

2488 printc4$"frachter identifizie 

rt.” 

2418 printc4$"sie erhalten je 1888 
fuel- und” 

2428 printc4$"oxigeneinheiten." 

2438 ox=0x+18809:en=en+1AAA 

2448 gosub 1ß1®:return 

2458 printc1$c4$c4$"das schiff hat 
sich als" 

2468 printc4$"zerstoerer des galak 

tischen" 

2478 printc4$"rates identifiziert. 
da wir" 

2488 printc4$"uns im sperrgebiet b 
efinden, ” 

2498 printc4$"erhalten sie eine st 
rafe" 

2508 printc4$"von 5208 jets." 

25180 jet= jet-5288:gosub1@18:return 
2528 printc1$c4$c4$"das raumschiff 
entpuppt sich" 

253@ printc4$"als piraten-kreuzer. 
nach kurzem" 

2548 printc4$"widerstand nehmen di 
e piraten"” 

2558 printe4$"ihre jets und unsere 
fracht" 

2568 Fore=1to2:fra$le)="":meg(e)=® 
:nexte 

2578 jet=@:gosub1®81@:return 

2588 for phi=1tosav 

2598 vol8:ph%=1008 

2688 do 

2618 sound3,ph%,3 

2628 ph%=ph%-18 

2638 loop until ph%=888 

2648 nextphi:vol@:return 

2658 forsiri=-1to3 

2668 vol8:sir%=508 

2678 do:sound1,sir%,2 

2688 sir%=sir%+1B 

2698 loop until sir%=988 

2708 volß:nextsiri:return 

2718 gosub1848:color1,2 

2728 jet=jet-(mez*bes*58) :ox=ox-en 
t%*2:en=sen-ent%*5 

2738 se=( jet+kgh) /10: jet=jet-se 
2748 ifox>Banden>Bandbes>Bandsz<zi 
elthen2888 


« 
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2758 ifbes<2® then printcl$c4$cA$c 

3$rn$"sie haben zu wenig matrosen 
tt "rf$ 

2768 ifox<=Bthenprintc1$+c3$+c4$+c 

4$+rn$+"sie haben kein oxigen mehr 
ttl"+rf$ 

2778 ifen<=®thenprintcl$+c3$+c4$+c 

4$+rn$+"sie haben keine energie me 

hr !!t"+rf$ 

2788 ifsz=zielthengoto6598 

2798 gosub1818:g0t06478 

2888 fori=1to3:ifkre(i)>®then jet= 

jet-rat(i) 

2818 ifkre(i)>Bthen kre(i)=kre(i)- 

rat(i) 

2828 ifkre(i)<=®thenkre(i)=® 

2838 ifkre(i)<=®thenrat(i)=® 

2848 nexti 

2858 fori=1to02:ift%(i)=<szthenkgh= 

kghtagh(i) 

2868 nexti 

2878 fori=1to3:ifkre(i)>Bandt(i)=< 

szthengosub6718 

2888 nexti 

2898 kgh=kgh+((kgh/ 108) #2) :return 

2988 Fori=1to3 

2918 b=&6:d=fnc( 18) 

2928 forx=1toi-1 

2938 ifau$(x)=fr$(d)then2918 

2948 nextx:au$(i)=fr$(d) 

2958 b=1:pme( i)=fnc( 1e5) 

2968 pf(i)=fnc( 188) 

2978 nexti 

2988 fore=1to2:ifau$(e)=""thenpme( 

e)=8 

2998 

3888 

3818 

exti 

xt 

3828 b=1:qpo=fnc( 18) :ope=fnc( 18) :a 

bes=fnc( 18) 

3838 b=1888:pox=fnc( 1888) :pen=fnc( 

1800) 

3848 return 

3858 printpu$rn$"” 

$ 

3868 printc3$"”-1- Fuel"”b5$,"-2- ax 

igen" 

3878 printc3$"-3- matrosen","-4- " 

;au$( 1) 

3088 printc3$"-5- 

"-6- ";au$( 3) 

3098 getkeya$:ifa$=" "then3128 

3188 a=valla$) :ifa<iIora>6then3898 

3118 onagosub 3260,3270,3370,3448, 

3448, 3440 

3128 g0t0478 


ifpme(e)=®dthenau$( e) ="" 

nexte 

fori=1t03:b=7:pk( i)=fnc( 18) :n 
:fori=1t02:b=5:pa(i)=fnc(3) :ne 


kaufen "b$b$b$rFf 


"-au$( 2) ;tab( 28) 
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3138 printey$rn$" verkaufen"”b$b$b4 
$bA$rr$ £ 
3148 printc3$"-1- Fuel"b5$,"-2- ox 
igen"” 

3158 printc3$"-3- matrosen”,"-4- " 
;fra$( 1) : 

3168 printc3$"-5- ";fra$(2) 

3178 getkeya$:ifa$=" "then3288 
3188 a=valla$) :ifa<iora>6then3178 
3198 onagosub 3599, 3688,3680,373®, 
3738 
3208 
3218 
3228 
tt) 
3238 jet=5888 

3240 sz=2458:fori=1to2:fra$(i)="": 
meg(i}=®:nexti 

3258 s1=22:52=11:54=1:55=8:return 
3268 gosub4558:g0t03288 

3278 gosub4568 

3288 v4=B:inputv4 

3298 ifv4>v2then6248 

3308 ifv2<=Bthen6258 

3318 ifl v4+v1)>5888then6268 

3328 ifv4<=Bthen3368 

3338 vi=svi+tv4:v2=v2-v4:jet=jet-v4* 
v3 
3348 
3358 


goto478 
0ox=5988 :en=5888:kgh=1d008 
bes=35:b=1:tt=fnc( 18) :ak$=p$( 


ifx=-Bthengosub4628 

ifx=1thengosub4638 

3368 return 

3378 k=8:printc3$"wieviel matrosen 
";:inputk 

3388 if(k+bes) >35then6298 

3398 ifk>abesthen6278 

3488 ifabes<=Bthen6288 

3418 ifk<=@then3438 

3428 bes=bestk:abes=abes-k 

3438 return 

3448 gosub4578:ifau$li)=""thenretu 

rn 

3458 

n3498 

3468 

3478 

3488 

3498 

3588 

3518 

548 

3528 

50 

3538 g0t06338 

3548 k=8:printc3$”"wieviel ";au$(i) 
;:input” ";k:ifk>pme(i) then6388 

3558 ifk=dthenreturn 

3568 meg( j) =meg( j) +K:ifmeg( j) <=588 


forj=1to2:ifau$li)=fra$( j)the 


nextj 
for j=1to2:iffra$( j}=""then354 


next j:goto6348 

ifmeg( j) <>58888then3548 
ifj=1then3528 

iffra$( j-1)=""thenj=j-1:goto3 


iffra$( j+1)=""thenj=j+1:goto3 
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88then3588 

3578 k=5B888-(meg( j) -k) :meg( j) =588 
28 

3588 jet=jet-k*pf(i):pme(i)=pme(i) 
-k:fra$( j)=au$li) :return 

3598 gosub4558:goto3618 

3688 gosub4568 

3618 v4=B:inputv4 

3628 ifv4>vithen6358 

3638 ifv4<=B then3678 

3648 v2=v2+V4:v1=v1-v4: jet=jet+v4* 
v3 

3658 ifx=®thengosub4629 

3660 ifx=ithengosub4638 

3678 return 

3688 v=8:printc3$"wieviel matrosen 
sollen gehen ";:inputv 

3698 ifv<=8 then3728 

3788 bes=bes-v:abes=abestv 

3718 ifbes<28then6368 

3728 return 

3738 gosub4578:iffra$( i)=""then383 

(7) 

3748,printc3$"zu verkaufendes ";fr 

a$(i);:input" ";v 

3758 ifv>meg( i) then637® 

3768 ifv<=B then 3838 

3778 forj=1t03:iffra$(i)=au$( j) the 

n3798 

3788 next j:goto6388 

3798 meg(i)=megl(i)-v 

3888 ifmeg(i)=Bthenfra$li)="" 

3818 pme( j)=pme( j) +tv 

3828 jet=jet+v*pf( j) 

3838 return 

3848 color®,1:color4, 1 

3858 b=1 

3868 pi=fnc( 37) :d=1:s$=wh$+". ” 
3878 p2=fnc( 37) 

3889 p3=fnc( 37) 

3898 p@=fnc( 37) 

3988 printc1$1g$c3$c3$c3$left$( qd$ 
‚6)b2$re$f1$zb$fo$; 

3918 printib$ze$ze$ze$ze$ze$ze$ze$ 
ze$ze$ze$fl$re$zq$fo$1g$ 

3928 printc3$c3$c3$b2$1g$rn$zB$rf$ 
z8$rn$z8$; 

3930 printrf$z8$rn$zB$rf$z8$rn$zB$ 
rf$z8$rn$z8$rf$z8$lb$"NM" 

3948 printc3$c3$c3$b2$1b$rn$” "b$y 
q$lg$rf$ib$"M "rn$1g$z8$b2$ya$rf$ 
3958 printc3$c3$c3$b2$b1$yq$rn$yq$ 
rf$ygq$rn$yg$rf$yg$rn$yg$rf$yg$rnsy 
q$rf$yg$rnsyasrf$; 

3968 printlib$rn$b3$"U"zh$zh$"I"zo$ 
lg$rf$wh$"1I" 

3978 printc3$c3$c3$b2$1g$rn$zB$rf$ 
z8$rn$z8$rf$z8$rn$zB$rtf$z8$rn$zB$r 


—- 6 
T$zB$rn$zBtrt$zB$; 
3988 printib$rn$b3$"J"zg$zg$"K"zn$ 
lg$rr$wuh$g"K" 


3998 printc3$c3$c3$b2$1b$rn$" "b$r 
f$z8$1b$"N "bl$yq$rn$b2$rf$z8$ 
4088 printc3$c3$c3$b2$bl$yq$rn$yq$ 
rf$ygq$rn$yg$; 

4818 printrf$yg$rn$ygsrf$yysrngyg$ 
rf$ygq$rn$yg$rf$ibg"MN" 

4028 printc3$c3$c3$b2$er$f1$zr$Ffo$ 
1b$zm$zm$zm$zm$zm$zm$zm$zm$zm$zm$t 
1$gr$zt$rfo$l1g$ 

4838 vol4:c=988:for i=1t045 

40848 sound3,c,2:char1,pß,1,s$:p®=p 
8-d:ifp&<>dthen4968 

4858 p8=37:char1,1,1," " 

40868 sound3,c,2:char1,p1,4,s$:p1=p 
1-d:ifp1<>Bthen4988 

4878 p1=37:char1,1,4," ” 
4888 sound3,c,2:char1,p2,16,s$:p2= 
p2-d:ifp2<>8then4182 

4898 p2=37:char1,1,16," " 

4188 sound3,c,2:char1,p3,21,s$:p3= 
p3-d:ifp3<>@then4138 

4118 sound3,c,2 

4128 p3=37:char1,1,21," " 

4138 nexti:volB 

4148 return 

4158 color4,1:color®,1:char,1,1,wh 
$+c1$+rn$+"raumbasis an raumfaehre 
“ırf$ 

4168 char,®,1,re$+rn$+"klar zum an 
docken"”+rf$ 

417® char,27,4,1g$+"UI" 

4188 char, 26,5,"N”+gr$+"VV"+1g$+"M 


4198 char, 25,6, "N”+gr$+"VVVV"+1g$+ 
"y” 

4288 char, 24,7,"N"”+gr$+"VVVVVV"+1g 
$+"M" 

4218 char, 23,8, "N”+gr$+"VVVVVVVV”+ 
lg$+"M" 

4228 char,22,9,"N"+gr$+"VVVVVVVVVV 
"+1g$+"M" 

4230 char,22,18,"M"+gr$+"VVVVVVVVV 
V"+lg$+"N" 

4248 char,23,11,"M"+gr$+"VVVVVVVV" 
+1g$+"”N” 

4258 color1,2,5:char,24,12,"P"+rn$ 
+b6$+rf$+"0" 

4268 char, 21,13, zp$+"L"+ze$+zp$+rn 
$+b2$+zp$+"L"+b2$+rf$+"L"+ze$+zp$+ 
a Bir 

4278 char, 21,14,"PO"+zm$+"P"+rn$+b 
2$+"P0O"+b2$+rf$+"0"+zm$+"PO” 

4288 char, 24,15, zp$+rn$+b6$+rf$+"L 


4298 char,23,16,1g$+"N"+gr$+"VVVVV 
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VVV"+1g$+"M" 

4388 char, 22,17,"N"+gr$+"VVVVVVVVV 
V"r+lg$+H"M" 

4310 char 22,18, "M"+gr$+"VVVVVVVVV 
V"+1g$+"N" 

432® char, 23,19, "M"+gr$+"VVVVVVVV" 
+1g$+"N” 

4338 char, 24,28, "M"+gr$+"VVVVVV"+1 
64 "N" 

4348 char, 25,21,"M"+gr$+"VVVV"+1g$ 
+"N”" 
4358 
N” 
4368 
4378 
4388 
4398 
4408 
4418 
4428 
4438 
+rf$ 
4448 
+rf$ 
4458 


char, 26,22, "M"+gr$+"VV"+1g$+" 


char, 27,23, "JK" 

char ,5,22,wh$+"”." 

char ,3,4,"." 

char, 38,2,"." 

char, 16,9,"."” 

char, 29,23,” .” 

foro=8t017 

char,0,11,1r$+" "+rn$+” "+yq$ 


char, 0,12,” "+rn$+b4$+"+"+yq$ 


char,0,13," "+yg$+zv$ 

4468 gosub998:nexto 

4470 char,®,1,g3$+rn$+"willkommen 
an bord der raum-"+rf$ 

4488 char ,B,2,rn$+"basis von 
r,18,2,ak$:char, 17,2,rf$ 
4498 char, 15,24,"[space]" 
4508 gosub4648:ifa$<>" "then 4588 
45138 gosub1358:return 

4528 scnclr:g0t06478 

4538 printc2$b$b$b$b4$b4$c2$:retur 
n 

4548 def fnc(a)=absl( int(rnd( 1)*a) + 
b):return. 

4558 vi=en:v2=pen:v3=ope:printc3$c 
4$"wieviel fuel ";:x=@:return 

4568 vi=ox:v2=pox:v3=gpo:printc3$c 
4$"wieviel oxigen ";:x=1:return 
4578 ifa=4theni=1 

4588 ifa=5theni=2 

4598 ifa=6theni=3 

4608 return 

4618 foru=8t039:printre$"C"wh$; :ne 
xtu:return 

4628 en=vi:pen=v2:return 

4638 ox=vi:pox=v2:return 

4648 getkeya$:vol8:sound1,596, 15:r 
eturn "s 

4658 gosub1818:printwh$"” fuel: "gr 
$;en; :printtab( 15)wh$"schildenergi 
e: "gr$;ssd:return 

4668 gosub4548:b=1:f=fnc(7) 

4678 onfgoto4689,4840,4988,49809,58 
60,4929,5278 


":cha 


<pk> 
<hl> 
<dh> 
<jc> 
<og> 
<cf> 


<1l> 
<hi> 
<fj> 
<cm> 
<hh> 
<ap> 
<kl> 
<id> 


<il> 


<mg> 
<am> 
<fj> 


<ip> 


<fa> 
<dk> 
<jg> 
<ob> 
<1lp> 


<gh> 
<nk> 
<eg> 
<ge> 
<mj?> 
<me> 
<bp> 
<ka> 
<kl> 
<co> 
<hp> 
<fl> 
<ho> 


eng? 


<an? 
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4688 scncir:s$[1)="+-#":8$(2)="-+# 
":8$( 3) ="#-+":5$(4)="#+-":5$(5)="+ 

#-".6$="-74" 

4698 c=fnc(6) :zy$=s$(c) 

47808 printc4$wh$c4$c3$"die kaelteb 
oxen fuer den kuenstlichen" 

4718 printc4$c3$"” "winterschlaf’sin 

d defekt,und die re-" 

4728 printc4$c3$"paratur-automatik 
rastet nicht ein." 

4738 printc4$c3$"sie muessen sie v 

on hand aktivieren.” 

4748 printc4$c3$"welche reihenfolg 

e : "rn$"+"rf$" "rn$"-"rf$" "rn$"* 
"rf$" "rn$re"rtg" 7" 

4758 printc4$c3$"sie haben 3 versu 

che.":z=1 

4768 printc4$c3$" jedes zeichen nur 
1 mal benutzen!!!" 

4778 ifz=4then48B18 

4788 printc4$c3$"ihre "z"”. 
"s:inputa$ 

4798 z=z+1:ifa$<>zy$thend477X 


eingabe 


4888 printc4$c3$"positiv !!!":gosu 


b988:return 

4818 printc4$c3$rn$" [eingabe gesp 
errt] "rf$ 

4828 printc4$c3$"kaelteboxen nicht 
aktivierbar!!!":gosub988: jet=jet- 
(bes*20) 

4838 ox=0ox-( ent*4) :en=en-(ent*#4):r 
eturn 

4848 b=1:g=fnc(2) :printc1$c3$c4$"m 
eteoriten haben den" 

4858 printc4$c3$"lagerraum "g" auf 
gerissen." 

4868 iffra$(g)=""then4890 

4878 printc4$c3$"wir haben unsere 
gesamte" 

4888 printc4$c3$;fra$(g) ;"-ladung 
verloren." 

4898 Fra$(g)="":meg(g)=®:gosub23®: 
gosub1818:return 

4988 printc1$c4$c3$"durch eine und 
ichte aussenschleuse” 

4918 printc3$c4$"verloren wir 12m 
atrosen.":bes=bes-12:0x=0x-2000:go 
sub989: return 

4928 scnelr:printc4$c4$c3$re$"das 
kurs-programm arbeitet fehlerhaft" 
:b=1:j=fnc(9) 

4938 printc4$c3$wh$"waehlen sie ei 
ne zahl (1-9) aus und"”:printc4$c3$ 
"geben sie sie ein." 

4948 printc4$c3$"wenn es die falsc 
he ist, dann kehren" :printc4$c3$"w 
ir nie mehr heim !" 

4958 printc4$" zahl :"; 


<ch> 
<cm> 


<gm> 
<hj> 
<fb> 


<og> 


<im> 
<1h> 


<hh> 
<bl> 


<mb> 
<mc? 


<oi> 


<lo> 


<bn> 
<sef> 
<il> 


<am> 
<go> 


<pk> 
<nb> 
<l1b> 


<bk> 


<ke> 


<mn> 


<gl> 


<gh> 
<en> 
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4968 gosub4648:a=valla$) :ifa<lora> 
9then496B:elsegosub988 

4978 printa, j:gosub978:ifj<>athenr 
eturn:else6988 

4988 printc1$c4A$c3$rn$fl$"feuer"fo 
$;rf$wh$; :color4,3,3:gosub98B 

4998 printc3$"kabelbrannt durch ku 
rzschluss" 

5088 printc4$c3$"im intercomsystem 
":g0sub989:b=1:g=fnc( 3) 

5818 ifg=3thenprintc4$+c3$+rn$+"st 

arke"; 

5828 ifg=1thenprintc4$+c3$+rn$+"le 
ichte"; 

5838 printrn$"” beschaedigung !!!"r 

f$:s2=s2+g:printtab( 12) wh$c4$c4$Fl 

$"[ space] "fo$ 

5ß48 Forgp=Bto4:color4,3,gp:gosub1 

BB®:next:geta$:ifa$=" "then595B:el 

se5848 

5850 s2=s2+g:ifs2>=22then258:elser 

eturn 

5868 printc1$c4$c3$"sie treffen au 

f die schwer" 

5878 printc3$”havarierte <kephus> 


5888 printc3$”der raumgleiter beno 
etigt" 

5898 printc3$"dringend fuel und ox 
igen." 

5188 printc3$"”sie haben 
1 und" 

5118 printc3$;0ox;"” oxigen." 

5128 printc3$"wieviel wollen sie i 
hnen geben ?" 

5138 printc3$c4$"-1- je 1899 einhe 
iten"” 

5148 printc3$c4$"-2- je 2588 einhe 
iten" 

5158 printc3$c4$"-3- garnichts" 
5168 gosub4649:a=val(la$) :ifa>3ora< 
1then5168 

5178 onagoto5188,5218,5248 
5188 printc4$c3$"vielen dank, 
ander" 

5198 printc3$"ihre jet’s erhoehen 
sich um 18888" :b=1:gw=fnc( 1088) 
5200 jet=jet+gw:ox=0x-18B8:en=en-1 
BBB:gosub1ß1ß:return 

5218 printc3$c4$"das war sehr gros 
szuegig" 

5228 printc3$"als dank erhalten si 
e 20008 jet ’s"b=1:gw=fnc( 2588) 
5238 jet=jet+tgw:en=en-2508:0x=0x-2 
588:gosub1818:return 

5248 b=1:f1=fnc(4) :iff1<2then retu 
rn 

5258 printc4$c3$"wegen unterlassen 


n. .„" 
‚en;"” fue 


comm 


<ep> 
<1p> 
<bm> 
<ka> 


<ma> 


<dj?, 


<ag> 


<bp> 


<ı1f> 
<pm> 
<an> 
<1ln> 
<ei> 
<fd> 


<cf> 
<od> 


<jh> 
<nh> 


<ak> 
<pe> 


<nj? 
<lm> 


<nd> 
<ac> 
<aj> 
<fk> 
<fj> 
<mm? 


<fp> 
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er hilfeleistung, ":b=1:fnc( 7808) 
5268 print"”werden ihnen "gu" jet’s 
abgezogen.": jet=jet-gw:gosub98ß:r 
eturn 
5278 scnelr: printe4$e4$c3$ca$uh$Fl 
$"alarm"Fo$"---"T1$; 
5288 print"alarm"”fo$"---"f1$”alarm 
"f0o$"---"f1l$"alarm"fo$:gosub988 
5298 printc4$c4$c3$"ein "re$"gefae 
hrliches"wh$" tier hat sich beim" 
5308 printc4$c3$"letzten stop an " 


’ 

5318 print"bord geschmuggeit.":pri 
ntc4$c3$"was wollen sie tun ?":pri 
ntc4$c3$"fangen (1)" 

5328 printc4$c3$"erschiessen (?2)" 
5338 gosuh4648:a=valla$) :ifa>2ora< 
1then5448 

5348 onagoto5358,5418 

5358 b=1:c=fnc(3)}: oncgoto5368, 5378 
‚5398 

5368 printc4$c4$c3$"ok. wir haben 
es, commander !":gosub988:return 
5378 printc4$c4$c3$"wir haben es, 
aber zwei matrosen sind" :printc4$c 
3$"schwer verletzt." 

5388 gosub988:bes=bes-2:return 
5398 printc4$c4$c3$"verdammt ! es 
hat an dem hauptterminal":printc4$ 
c3$”"herumgespielt."; 

5488 print” das schiff kommt vom": 


printc4$c3$"kurs ab !!1”:gosub19218 
:g0t 06998 

5418 sav=1:gosub2588:b=1:c=fnc(2): 
oncgot0o5428,5448 

5428 printc4$c4$c3$"ein hervorrage 
nder schuss. das tier":printc4$c3$ 
"ist tot.":gosub98Q 

5438 return 

5448 printc4$c4$c3$"das tier ist t 


ot, doch ein fehlschuss":ox=0x-288 
8:printc4$c1$"hat "; 

5458 print"schweren schaden verurs 
acht." : jet=jet-598@:en=en-2088:gos 
ub988: return 

5468 senclr:colorß, 15,2:color4,15, 
2 

5478 printtab( 11)re$zf$"CCCCCCECCE 
CCCCCC"Zd$ = 

5488 printtab( 11)re$"B"wh$"interga 
laktische"re$"B" 

5498 printtab( 11) zc$"CCC"zd$b4$b3$ 
zf$"CCCC"zs$ 

5588 printtab( 15)re$"B"wh$"b an k 
"re$"B":printtab( 15) re$zc$"TCECCEE 
"zs$:gosub4618 

5518 printwh$” sternzeit 
;:printtab( 22)wh$"planet 


"bi$;sz 
"bl$;ak 


<fm> 


<hc> 


<pb> 


<cj? 
<ce> 


<1j> 


<bm> 
<do> 
<bk> 
<pb> 


<pc> 


<lm> 
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$:gosub461® 

5528 printwh$” guthaben 
:gosub461B 

5538 printwh$” kontoguthaben 
$;kgh:gosub4618 


"b1$; jet 


"bl 


5548 printc3$wh$"-1- einzahlen" 
5558 printc3$"-2- abheben” 

5568 printc3$”"-3- kredit” 

5578 printc3$"”-4- jet’s fest anleg 
en" 

5588 printce3$"-5- basis-lagerliste 
5598 gosub464B:a=valla$) :ifa<lora> 
5then5598 

5600 k=8:onagoto 5618,5650,5698,59 
70,478 

5618 gosub613B:input" wieviel einz 
ahlen”;k 


5628 ifk<=8then5468 

5638 ifk>jetthen6128 

5648 kgh=kgh+tk: jet=jet-k:g0t05468 
5658 gosub613@:input"” wieviel abhe 
ben";k 

5668 ifk<=Bthen5468 

5678 ifk>kghthen6128 

5688 kgh=kgh-k:jet=jet+k:goto 5468 
5698 color8,5,2:color4,5,2:printcel 
$c4$c3$”-1- kredit aufnehmen" 

5788 printc3$”-2- kredit tilgen” 
5718 printce3$"-3- bank” 

5720 gosub4648:a=valla$) :ifa>3ora<s 
1then5728 

5738 onagoto5740,5848,5468 

5748 fori=1t03:gosub619B:ifkre(i)= 
<8then5768 

5758 nexti:goto5698 

5768 print"kredit aufnehmen" :input 
" wieviel jet’s";k:ifk=<dthen5698 
5778 ifk>380888then5938 

5788 input” wieviel jahre”; j(i):if 
3j3li) <=8then5698 

5798 t(i)=sz+jli) 

5808 if t(i)>zielthen5948 

5818 kre(i)=int(k+((pkli)*[k/180)) 
*3(i))) 

5828 rat(i)=int(kre(i)/jli)):jet=j 
ett+tk 

5830 goto 5698 

5848 scnclr:ifkre( 1)=<Bandkre( 2) =< 
‚Bandkre( 3) =<Bthen5698 

5858 fori=1to3:ifkre(i)>Bthengosub 
6198 s 

5868 nexti 

5878 input” welchen kredit";i:ifi> 
3ori<ithen 5848 

5888 ifkre(i)=<dthen5698 

5898 print”kredit tilgen”:input” w 
ieviel jet’s";k:ifk=<@then5698 


<ei> 
<an?> 
<jk> 
<be> 
<mm> 
<lb> 
<ei> 
<ip> 
<ac> 
<aa> 
<fg> 
<gc> 
<zec> 
<ja> 
<hj> 
<1h> 
<be> 
<kk> 
<of> 
<lb> 


<eg> 


<mo> 
<fd> 


<gd> 
<bm> 


<gk> 
<1h> 


<nf> 
<he> 
<nc> 


<go> 


<fl> 
<ej? 


<ib> 


<nf> 
<dh> 


<jo> 
<bj> 


<jl> 
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S5ann ifk>jetthend95h 

5918 ifk>kreli)then5968 

5928 jet=jet-k:kre(i)=kre(i)-k:gos 
ub6198:g0ot05698 

5938 gosub6419:g0t05699 

5948 gosub642B: g0t05698 

5958 gosub6350:gota5698 

5968 gosub64BB:g0t05698 

5978 sencelr:fori=1t0o2:gosub6158:if 
agh( i)=8then5998 

5988 nexti:goto 5698 

5998 printc4$c3$"sie haben "jet" j 
et’s":printc4$"” wieviel jet’s”;:in 
putk 

6HHB ifk=-<@then5698 

6818 ifk>jetthen6128 

6822 pr=®:pr=int(pr+((kK/188)*pali) 
)) 

6838 print” pro jahr "g2$pr;wh$" j 
et’s" 
6848 
6958 


input” wieviel jahre"; j%(i) 

ifj%li)=<&then 5468 

6868 ifj%li)<=20then 6088 

6878 printc4$c3$wh$"anlagezeit zu 
lang"”1g$:gosub989:goto5468 

6888 t%li)=sz+j%l i) :ifziel<st%li)th 

en611B 

6898 agh(i)=int(k+l(pali)*(kK/180)) 

*3j%i1))) :jet=jet-k:goto546® 

6128 gosub6158:g0t05468 

6110 gosub6420:g0t05469 

6128 gosub635B:got0546B 

6130 fori=12t023:char1,®,i,b$+b$+b 

$+b5$+b4$:nexti 

6148 char1,8,12,"":return 

6158 ifaghli)=<Bthen6188 

6168 printc4$c3$wh$"angelegte jet’ 
s:"1g$;agh(i) :printwh$c3$"auf"1g$" 
”";5j%li);wh$" jahre” 

6178 printwh$c3$"zu "1g$;pali);wh$ 
de 

6188 return 

6198 ifkre(i)=<dthen6238 


‚6288 printc3$c4$wh$i".kreditbetrag 


:"g1$;kre(i) ;wh$” jet’s" 

6218 printc3$wh$"auf "g1$; jli);wh$ 

" jahre" 

6228 printc3$wh$"zu”g1$" ";pkli);w 

h$"%" 

6238 return 

6248 printc3$c2$rn$" so viel wird 

nicht angeboten "rf$:goto 6438 

6258 printc3$c2$rn$"” die tanks von 
";ak$;" sind leer "rf$:goto6438 

6268 printc3$c2$rn$" sie koennen m 

ax. nur 5888 aufnehmen "rf$:got064 

38 

6278 printc3$c2$rn$” so viele matr 


Zno? 
<bj> 


<dg> 
<de> 
<ee> 
<jh> 
<oc> 


<ea> 


<dh> 


<im> 
<bd> 
<gg> 
<bh> 
<ai> 
<kp> 
<cg> 
<gc> 
<dl> 
<bk> 
<ni> 
<ll> 
<ik> 
<fp> 
<mf> 


<oc> 
<ınb> 


<cm> 
<co> 
<ag> 
<nb> 
<fo> 
<ph> 


<mf> 
<gk> 


<ih> 


<ci> 


<mc> 


MERCHANT S5ERVICE 


osen sind nicht hier "rf$:g0t06438 
6288 printc3$c2$rn$" die matrosenu 
nterkuenfte sind leer "rf$:g0t0643 
() 
6298 printc3$c2$rn$” 
ur 35 mann aufnehmen 
63828 printc2$c3$rn$"” 
nicht angeboten "rf$:g0t06438 
6318 printc3$c2$rn$" die ";au$(i); 
"-lager sind leer "rf$:got06438 
6328 printc3$c2$rn$" ";ak$;" hat k 
eine ";au$(i);"-lager "rf$:goto643 
(% 
6338 printc3$c2$rn$" nur 5URMA t p 
assen in einen lagerraum "rf$:goto 
6438 
6348 printc3$c2$rn$"” ihre beiden 1 
agerraeume sind belegt "rf$:gotu64 
38 
6358 printc3$c2$rn$" so viel haben 
sie nicht "rf$:g0t06430 
6368 printc3$c2$rn$" sie benoetige 
n mindestens 28 matrosen "rf$:goto 
6438 
6398 printc2$c3$rn$"” so viel ";fra 
$(i);" haben sie nicht "rf$:goto64 
38 


sie koennen n 
"rf$:g0t06438 
so viel wird 


6388 printc3$c2$rn$" ";ak$;"hat ke 
ine ";fra$(i);"-lager "rf$:g0t0643 

8 

6398 printrn$wh$c2$c3$”" hier ist "” 
;ak$;",commander "rf$" ":goto6438 
6488 printc3$c2$rn$"der kredit ist 
nicht so hoch ":g0t06438 

6418 printc3$c2$rn$"”sie bekommen m 
ax. nur 38898 jet ’s":g0t06439 

6428 printc3$c2$rn$"die zeit reich 
t nicht mehr aus ":g0t0643@ 

64308 gosub98B:return 

6449 colorß,3,2:color4,3,2 

6458 senclr:printleft$(gd$,4)1left$ 
(qr$,4)"sind sie sicher (j/n) ?" 
6468 gosub464B:ifa$<>"j"then47B:el 
se6478 

6478 scnclr:ifsz=>3888then6598 
6480 color®, 1:color4,1:printwh$c4$ 
c3$"sie sind gefeuert! einen so mi 


6498 printc3$"serablen commander h 

atte die inter-"” j 

6508 printc3$"galaktische rohstoff 
company selten." 

6518 printc3$”wenn die manager mit 
ihnen erbarmen" 

6528 printc3$"haben,bleiben sie vi 

elleicht als" 

6538 printc3$"gabelstaplerfahrer a 

uf einem weit" 


<ea> 


<pf> 
<no> 
<nc> 


<df> 


<nc> 


<kd> 


<kp> 


<le> 


<co> 


<ma> 
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6548 printc3$"abgelegenen aussenpo 
sten angestellt.” 

6558 jet=jet-kre( 1)-kre(2)-kre(3)+ 
agh( 1) +agh( 2) :printc3$"sie hatten 
"ar$jet;wh$"” jet’s." 

6568 fori=1to3:ifmeg(i)=Borfra$l(i) 
=""then658® 

6578 printc3$wh$;fra$li);" :"b1l$;m 
eg(i) 

6588 nexti:gosub1B18:g0t06988 

6598 color4,8,7:color®,8,7:printbk 
$c4$c3$"herzlichen glueckwunsch!” 
6698 printc3$"sie haben eine beach 
tliche leis-" 

6618 printc3$"tung vollbracht. sie 
werden hier-" 

6629 printc3$"mit ins management a 
ufgenommen.” 

6638 printc3$"sie bekommen die abt 
eilung fuer" 

6648 printc3$"erforschung und neue 
rschliessung” 

6658 printc3$"des universums unter 
stellt." 

6668 printc3$"wir sind stolz auf s 
je!!!" 

6678 printc3$"sie hatten "gr$jet;b 
k$"” jet’s" 

6688 Fori=1to3:ifmeg(i)=-Borfra$l(i) 
=""then 6788 

6698 printc3$bk$;fra$li);" :"b1l$;m 
egli) 

6788 nexti:gosub1A10:got06908 

6718 printc4$rn$"die bank hat ihre 
n "i"”.kredit gekuendigt"rf$ 

6728 ail=kgh-kre(i) :a2=kre(i)-kgh 
6738 ifa2>@then6768 

6748 ifa2=<dthenkgh=al 

6758 return 

6768 kgh=-B:a3=jet-a2:a4=a2-jet 
6778 ifa4>Bthen68BB 

6788 ifa4=<dthenjet=a3 

6798 return 

6808 jet=B:a5=(meg( 1) *25) -a4:06=a4 
-(meg(i) *25) 

6818 ifa6>dthen6B4B 

6828 ifa6<=Bthenmeg( 1) =int( a5/25) 
6838 retrun 

6848 meg( 1) =8:a7=( meg( 2) *25) -a6:a8 
=a6-(meg( 2) #25) :fra$( 1)="" 

6858 ifa8>@then6888 

6868 ifaß=<@thenmeg( 2) =int(a7/25) 
6878 return 

6888 meg(2)=8:fra$( 2)="" 

6898 return 

6988 scenclr:color®,5,2:color1,2:co 
lor4,5,3 

6918 printtab( 16)wh$left$(qd$,7)c3 


<nd> 


« 
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$c3$"nochmal"c4$;c4$left$(lq1$,5)"( 
J3/n)" 

6928 gosub464B:ifa$="j"then run 

6938 ifa$<>"n"then6929 

6948 scncelr:printtab( 15)left$(qd$, 

6) "game over” :gosub98B 

6958 poke774,164:poke775,242:1list 

6968 scnclr:color@,1:color4, 1 

6978 b$=chr$( 32) :b2$=b$+b$ 

6988 b3$=b2$+b$:b4$=b3$+h$ 

6998 b5$=b4$+b$:b6$=b5$+b$ 

7888 b$=b5$+b5$ 

7018 gosub980:w$[ 1) =wh$+"hoffmann 

brothers" :w$(2)=1r$+" praesentjere 
n" 

7828 w=w+1:fory=24toßstep-1:chari, 
11,y,w$Cw) 

7830 gosub1888:char1,11,y,b$+b4$+b 

4$:ify=Bandw=1then?7ß2B:elsenexty 

7848 gosub978:char1,19,8,wh$+rn$+z 

B$+yg$+rf$ 

7058 char1,17,9,1b$+rn$+zB$+b4$+yq 

$ 

7868 char1, 15, 18, g2$+rn$+z8$+"---- 

==-"+yg$trf$ 

7878 char1,12,11,1b$+rn$+z8$+b$+b4A 

$tyq$+trrf$ 

7888 char1,11,12,1b$:printrn$z8$zr 

$zt$zr$zt$zr$zt$zr$zt$zr$zt$zrgzt$ 
zr$zt$zr$zt$yg$rt$ 

7898 char1,18,13,gr$+zb$+z1$+z1$+z 
1$+rn$+b$+b2$+rf$+21$+21$+z1$+za$ 
7188 char1,9,14,1b$+rn$+z28$+"::::: 
en ae 

7118 char1,9,15,b1$+rn$+"IUTUTUIUL 
UIUIUIUIUIUIU"+rF$ 

7128 char1,9,16,b1$+rn$+"KJKJKJKJK 
JKJKJKJKJKUJKJ"+rTF$ 

7138 char1,9,17,1b$+yq$+rn$+"::::: 
ara Ert$rzds 

7148 char1,18,18,gr$+tzr$+rn$+z1$+z 
1$+z21$+b$+b2$+21$+z21$+z1$+rf$+tzt$ 
7158 char1,11,19,1b$:printyq$rn$zb 
$zq$zb$zq$zb$zg$zb$zg$zb$zg$zb$zag$ 
zb$zg$zb$zq$rr$z8$ 

7168 char1,12,20,1b$+yq$+rn$+b$+b4 
$+rf$+z8$ 

7178 char1,18,21,re$+yq$+rn$+b2$+r 
f$+zB$ 

7188 char1,19,22,re$+yq$+z8$ 

7198 color1,4,6_ 

7288 char1,8,2,29$:print"MN"zj$zf$ 
" OP "zf$” "zj$z9$" 0OP"z9$; 

7218 print"M "zj$"C"zh$"C"b2$zFf$zd 
$zf$s2$"OP "zj$z9$"” G"zf$” "zr$ 

7228 color1,4,4 

7238 char1,8,3,29$:printb2$z j$za$"” 
LN”s2$"B"s2$"L"zp$s2$"L"zp$z9$; 


<da> 
<am> 
<if> 
<mm> 
<fh> 
<mf> 
<ii> 
<hj> 
<op> 
<ih> 
<fm> 
<cj? 
<fi> 
<hm> 
<jm> 


<mj> 


<hd> 


<jm> 
<ki> 
<nd> 
<ic> 
<em> 
<ec> 


<gh> 


<jp> 
<hn> 
<ib> 
<el> 
<dn> 


<ie> 


<ha> 
<mc> 


<fe> 


7448 printc4$c3$"gekommen, 


7248 print" M"zj$" B"b3$zc$zd$za$” 
N "zj$z9$s2$"GB "za$ 

7258 color1,4,2 

7268 char1,8,4,29$:printb2$z j$zc$s 

2$zj$"M "zc$" "zj$z9$" "zj$z9$z9$b 

2$zj$; 

7270 print" B"b3$zc$zs$zc$" "zj$"M 
MN G”zc$" "zc$ 

7288 char1,23,24,g2$+" sangright 19 

87" 

7298 gosub7380:gosub7358:geta$:ifa 

$=" "then?399:else7298 

7388 char1,9,15,b1$+rn$+"UIUIUIUIU 

IUIUIUIUIUIUI"+rf$ 

7318 char1,9,16,b1$+rn$+"JKJKJKJKJ 

KJKJKJKJIKUJKJK"+rf$ 

7328 char1,11,19,1b$:printyq$rn$zb 

$zq$zb$zg$zb$zy$zb$zg$zb$zg$zbhzu$ 

zb$zq$zb$zg$rrf$zB$ 

7338 char1,11,12,1b$:printrn$z8$zr 

$zt$zr$zt$zr$zt$zr$zt$zrgzt$zr$zt$ 

zr$zt$zr$zt$yg$rf$ 

7348 gosub978:return 

7358 char1,11,19,1b$:printyq$rn$zq 

$zb$zq$zb$zg$zb$zg$zb$zg$zb$zg$zb$ 

zq$zb$zg$zb$rf$zB$ 

7368 char1,11,12,1b$:printrn$zB$zt 

$zr$zt$zr$zt$zr$zt$zr$zt$zr$zt$zr$ 

zt$zr$zt$zr$ya$rt$ 

7378 char!,9,15,b1$+rn$+"TUIUIUIUI 

UIUIUIUIUIUIU"+rf$ 

7388 char1,9,16,b1$+rn$+"KJKJKJKJK 

JKJKYKJKJKJKJ"+rf$:gosub979: return 

7398 scnclr:color®, 13,5:color4,13, 

5 

7408 printbk$c4$c4$c3$"nach sorgfa 

eltiger pruefung ihrer" 

7418 printc4$c3$"bewerbungsunterla 

gen, sind wir, das" 

7428 printc4$c3$"management der in 

tergalactic - raw -" 

7438 printc4$c3$"material - compan 

y, zum entschluss"” 

ihnen d 

as kommando ueber” 

7458 printc4$c3$"einen unserer fre 

e-trade-freighter" 

7468 printc4$c3$"zu geben. 

fgabe ist es,durch" 

7478 printc4$c3$"geschicktes kaufe 

n bzw. verkaufen” 

7488 printc4$c3$”moeglichst viel k 

apital zu erwirt-"” 

7498 printc4$c3$"schaften.” 

7588 printtab( 16)"[ space] ” 

7518 gosub4649:ifa$<>" "then?7518 

7528 fori=1t03®8:print:nexti:printh 

e$left$(qd$,4) 


ihre au 


<gk> 
<eg> 


<pg> 


<pe> 
<dk> 
<fo> 
<kc> 


<mf> 
<do> 


<im> 
<mk> 


<ma> 


<ck> 
<oe> 
<cn> 
<fj> 
<na> 
<cc> 
<ij> 
<hm> 
<db> 
<jf> 
<mb> 
<bo> 
<kp> 
<af> 
<io> 
<db> 


<dn> 


MERCHANT SERVICE 


7538 printc3$c3$c4$c4$"fuer wievie 


l jahre wollen sie" 


7548 printc4$c3$c3$"sich verpflich 


ten (min.28/max.58)"; :inputziel 


7558 ifziel<2Borziel>5®8then?7568:el 


se7698 


7568 printc3$c3$c4$c4$c4$"bedeutet 


das, 


7578 printc4$c3$c3$"("rn$"r"rf$"ic 


sie wollen nicht ?" 


htig/"rn$"f"rf$"alsch)" 
7588 gosub4648:ifa$="f"then?7528 


7598 printrn$c3$c3$c4$c4$"” * dann 
eben nicht * "rf$:gosub 1918:got069 


58 


7608 printc3$c3$c4$"sind sie siche 


r (j/n) ?" 


7618 gosub4648:ifa$<>"j"then?7528:e 


1s5e7628 


7628 printleft$(qr$,6)left$(qd$,4) 
fl$"viel erfolg !!!"Ffo$:gosub970:z 


iel=-ziel+t245®8:return 


7638 
7648 
7658 
7668 
7678 
7688 
7698 
7708 
7718 
7720 
7738 
7748 
7758 
7768 
7770 
7788 
7798 
7808 
7818 
7828 
7838 
7840 
7858 
7868 
7870 
7888 
7898 
7988 
7918 
7928 
7938 
7948 
7958 
7968 
7978 
7988 
7998 


rem nachspann 


rem * farbcodes/steuercodes * 
:c4$=chr$( 817) 
:he$=chr$( 819) 
:c3$=chr$( 829) 
:b1$=chr$( 831) 
:Fo$=chr$( 132) 
:c2$=chr$( 145) 
:c1$=chr$( 147) 
:ir$=chr$( 158) 
:g2$=chr$( 152) 
:1b$=chr$( 154) 
:pu$=chr$( 156) 
:ye$=chr$( 158) 


wh$=chr$( 885) 
rn$=chr$( 818) 
re$=chr$( 828) 
er$=chr$( 238) 
f1$=chr$( 138) 
bk$=chr$({ 144) 
rf$=chr$( 146) 
br$=chr$( 149) 
g1$=chr$( 151) 
1g$=chr$( 153) 
g3$=chr$( 155) 
c1$=chr$( 157) 
cy$=chr$( 159) 


rem ### zeichensatz/graphik *# 
s2$=chr$( 16B): 


zi$=chr$( 162) 


z3$=chr$( 164): 
:z9$=chr$( 178) 
:zb$=chr${ 172) 
:zd$=chr$( 174) 
:zf$=chr$( 176) 
:zh$=chr$( 178) 
:zj$=chr$( 188) 
:z1$=chr$( 182) 
:zn$=chr$( 184) 
:zp$=chr$( 186) 
:zr$=chr$( 188) 
:zt$=chr$( 198) 
:zv$=chr$( 192) 
:yq$=chr$( 223) 
zeichenfolgen * 


z8$=chr$( 169) 
za$=chr$( 171) 
zc$=chr$( 173) 
ze$=chr$( 175) 
zg$=chr$( 177) 
zi$=chr$( 179) 
zk$=chr$( 181) 
zm$=chr$( 183) 
zo$=chr$( 185) 
zq$=chr$( 187) 
zs$=chr$( 189) 
zu$=chr$( 191) 
ym$=chr$( 219) 
rem ###r88H0% 
for q=1 to 48 


z8$=chr$( 161) 
z2$=chr$( 163) 
z5$=chr$( 166) 


qd$=gqd$+c4$:qr$=gr$+c3$ 


ql$=q1$+c1$ 
next q 


- 12 — 
8998 return <em> 
8010 rem ========- === === een Cha> 
8028 rem 60671 bytes memory <jc> 
8838 rem 28826 bytes program <cp> 
BnAaNn rem 99854 bytes variables <hn> 
8058 rem 99845 bytes arrays <og> 
8968 rem 988945 bytes strings <ed> 
8878 rem 38081 bytes free (®) <ol> 
89BB rem ========================= ckh> 


Goesin 
Town 


Qually Goes In TOWN ist ein Grafikadventure. Ziel des 
Spiels ist es, einen bestimmten Gegenstand zu finden. 


Sie steuern Qually mit dem Joy in Port 1. Das Spiel 
besteht aus zwei Teilen. Im Teil 1 wird der Zeichen- 
satz verschoben, ein neuer Zeichensatz gebildet, die 
Maschinenroutine für die Hintergrundmusik und die 
Melodie eingelesen. Nach dem Starten mit RUN und 
richtigem Einlesen der Datas wird Teil 2, nach Aus- 
wahl, von Diskette oder Kassette nachgeladen. Nach 
dem Einladen von Teil 2 und dem Starten mit RUN, 
erscheint der Titel, durch Druck auf die Feuertaste 
am Joy beginnt das eigentliche Spiel. Sie sehen Qually 
auf einer einsamen Straße stehen. Bei Beginn des 
Spiels sind ihm noch Tür und Tor verschlossen. Durch 
Informationen, die Sie sich aus einschlägigen Medien 
besorgen müssen, können Sie sich Zugang zu den Häu- 
sern verschaffen. Gegenstände, die Sie dort entdecken, 
müssen Sie durch Berühren an sich nehmen, gesetzt 
den Fall, Sie brauchen diese! Da Qually ein gestreßter 
Privatdetektiv ist, kann er nicht mehr als drei Teile zu- 
gleich tragen. Merken Sie sich deshalb genau die An- 
zahl der Gegenstände, die Sie mit sich führen. Bei Be- 
nutzung dieser Gegenstände verbleiben diese anschlie- 
ßend an dem Ort ihrer Benutzung. Dadurch vermin- 
dert sich die Anzahl der getragenen Gegenstände. 
Jeder Fehler oder jedes besondere Ereignis wird durch 
einen Textkommentar angezeigt. Durch Bewegen des 
Joysticks verschwindet dieser Kommentar wieder. 
Hier noch eine Auflistung einiger Gegenstände und 
Gebäude: Streichholz, Messer, Spaten, Galgen, Eimer, 
Kreuz, Altar, Säge, Geldbörse, Flasche, Axt, Kno- 
chen; Brunnen, Metzgerei, Kiosk, Gericht, Gärtnerei, 
und verschiedene Wohnhäuser. 


Programmierhinweise: 

Tippen Sie zuerst Teil 1 ab. Nach richtigem Einlesen 
der Datazeilen, falsche Werte werden aufgelistet, Kön- 
nen Sie Teil 1 über die eingebaute Saveroutine abspei- 
chern. Teil 1 darf nicht umnumeriert werden, da der 
Zeichensatz durch einen simulierten Direktmodus 
verschoben wird. Teil 2 müssen Sie mit Save“Qually/ 
2,8 auf Diskette oder mit Save‘‘Qually/2‘ auf Kas- 
sette abspeichern. Da der Zeichensatz mit einem be- 
grenzten BASIC-Speicher geschützt wird, verbraucht 
Teil 2 fast den gesamten BASIC-Speicher. 
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» 


« 


QUALLY GOES IN TOWN 


18 rem qually/ 1================616 
28 rem (p) commodore welt team 

30 rem =========================== 
48 rem (c) by norbert schmelzer 

58 rem 

68 rem 

78 rem basic v3.5 


88 rem c16/116/plus4 

188 rem zeilennummern nicht dur 
ch 

118 rem renumber veraendern!! 


rt 

128 rem zeichensatz nach 14336 ver 
schieben 

130 poke55,255:poke56,56:c1r:color 
8,1:color4,1:colori,1:scnelr 

148 print"monitor":char1,8,6,"t d® 
BB dBBB 3808" :print:print:print"x" 
158 print:print"”goto828” 

168 poke1319, 19:fora=1328t01323:po 
kea, 13:next:poke239,5:end 

178 : 

188 rem neuer zeichensatz bilden 
198 : 

208 data24,24,24,68,126,255,36,36, 
585 

218 data6@,24,60,24,24,68,126,255, 
633 

228 data14,6,1,63,63,63,31,63,384 
238 data112,96,128,252,252,252,248 
‚24B, 1588 

248 data®@,48,120,63,63,120,48,8,46 
2 

258 data®,6, 15,254,254,15,6,8,55® 
268 data®,9,127,127,56,56, 124,8,49 


270 data®,0,254,255,0,8,0,0,589 
280 data®,8,0,255,255,0,0,0,518 
290 dataß,®,248,252,252,248,8,8,10 


308 data®,64,168,191,167,66,0,0,64 
318 data®,64,168,191,167,66,0,8,64 
320 data6®,24,24,24,60,60,60,24,33 


338 data6®, 126,255,255,255,231,231 
‚129, 1542 

348 data56,40,56,48,56,56,56, 120,4 
BD 

350 data24,56,;48,56,48,56,48,56,39 
2 

368 data68,66,66, 126, 126,126, 126,6 
0,756 

370 data56,49,254,170,238,56,48,56 
‚918 

388 data66,66, 126,66, 126,66, 126,66 


<cp> 
<ho> 
<ng> 
<oa> 
<pd> 
<ah> 
<nl> 
<ki> 
<ig> 
<ao> 
<mk> 
<eh> 


<dm> 


<ki> 
<pf> 


<ge> 
<ip> 
<hj> 
<1h> 
<pf> 


<ek> 
<fd> 


<fl> 


<seg?> 
<ki> 


<gf> 
<mm> 
<pn> 
<of> 
<fc> 
<kd> 
<bl> 
<hn> 
<pp> 
<ha> 
<bl> 


<ef> 


‚788 

398 data24,68,66,129,123,66,60,8,5 
28 

488 data24,24,60,36,36,36,60,68,33 
6 

410 data24,24,126,255,24,24,24,24, 
525 

428 data255,31,240,255,15,248,255, 
129, 1428 

430 data66,8,16,0,132,0,32,4,258 
440 data255,85,170,85,170,85, 170,2 
55, 1275 

450 data62,126,254,24,24,24,24,24, 
562 

460 data82,82,82,34,34,38,38,38,42 
8 

478 data127,113,117,65,105,65,85,1 
27,884 

488 data®,223,223,0,251,251,8,127, 
1875 

498 data®,9,252,254,35,171,136,248 
‚1896 

5808 data®,9,48,223,255,55,12,8,681 
518 data®,8,0,248,250,244,96,128,9 
58 

528 data255,255,96,96,96,96,96,96, 
1086 

530 data255,255,6,6,6,6,6,6,546 
548 data3,3,3,3,127,127,99,99,464 
558 data255, 129,153, 165,189, 153,12 
9,255, 1428 

568 data255, 153,153, 189,189, 153, 15 
3,255, 1508 

570 data®,®,63,127,196,213,17,31,6 
47 

588 dataß, 126,126, 126,126, 126,126, 
0,756 

598 data24,24,16,8,16,8,16,8, 128 
608 data16,8,28,54,66, 195, 126,68,5 
53 

610 data®, 126, 126,126, 114,126, 126, 
0,744 

620 data68,66,82,168,23,185, 185,98 


„ni 


630 data9,0,0,63,33,234,21,0,351 
640 data129,129,231,231,231,255,12 
6,68, 1392 

650 data219,219,283,219,219,211,21 
9,219, 1728 

660 dataß,8,0,0,15,63,127,128,333 
670 data®,0,0,0,219,219,219,219,87 
6 

680 datad,0,0,0,240,248,252,2,742 
6990 data255,235,247,235,227,255,25 
5,255, 1964 

700 data1,3,7,15,22,63,123,255,489 
710 data255,255,255,187,255,239,25 
5,255, 1956 


QUALLY GOES IN TOWN 


720 data128,192,224,248,168,252,22 
2,255, 1681 

730 data28,116,62,28,8,62, 127,255, 
586 

748 data56,54,68,56,16,124,254,255 
‚875 

758 data24,36,36,24,24,255,255,219 


873 
768 data153,69,126,126,126,126,36, 
102,855 


770 data60,90,192,24,255,189,189, 1 
89, 1898 

788 data129,68,6®,102,102,102,102, 
231,888 

798 data24,60,36,24,24,126, 153,165 
‚612 

808 data189,60,36,36,36,36,36,182, 
531 

818 rem neuer zeichensatz einlesen 
828 m=199: fort=14632t015119stepd:g 
=8:k=k+18 

838 Fortt=8to?:reada:poket+ttt,a:g= 
gta 

848 nexttt:readb:ifb<>gthen 1528 
858 nextt:scenclr:color1,2 

868 print"block i. in ordnung" :got 
0988 

870 : 

888 rem sound nach 15872 ’poken’ 
898 : 

988 restore 1838 

918 k=-8:m=1828:t=15872:tt=15873:s= 
8:g=75994 

920 reada:s=sta 

938 ifa=-1then98Bd 

948 b=int(a/256) :c=a-(int(a/256)*2 
56) 

958 poket,c:pokett,b 

968 t=t+3:tt=tt+3 

978 goto928 

988 ifg<>sthenprint"datafehler 183 
@-1169":1ist 1838-1168: end 

998 print"block ii. in ordnung” 


1888 : 

1818 rem sounddatas 

1828 : 

1838 data794,739,778,770,739,704,7 
39,778 


1040 data643,643,685,704,685, 784,6 
85,643 

10850 data643,643,571,643,643,643,6 
85,704 

1068 data685,704,685,643,643,643,5 
71,643 

1070 data?84,739,778,770,739,704,7 
39,770 

1088 data770,704,739,778,770,739,7 
04,685 


1098 data643,643,685,704,685,784,6 
85,643 

1108 data685,704,739,685,685,784,7 
39,784 

1110 data?04,784,685,704,739,704,6 
85,798 

1128 data685,685,704,739,704,685,8 
18,854 

1138 data798,798,778,798,810,854,8 
18,798 

1148 data798,798,779,798,818,798,7 
70,739 

1158 data770,798,739,784,685,784,7 
04,685 

1160 data685,643,8,8,0,-1 

1178 : 

1188 rem 219/228 soundbeginn speic 
hern 

1198 : 

1288 poke219,8:poke228,62 

1218 : 

1228 rem mc-routine f. hintergrund 
musik - 

1230 : 

1248 restore 1488:m=1398:k=® 

1258 fort=1638t01736step9 

1268 g=®:fortt=®toß:reada:poket+tt 
‚a 

1278 g=g+ta:nexttt:reads:k=k+1Q:ifs 
<>gthen 1528 

1288 nextt 

1298 print"block iii. in ordnung": 
f$="qually" 

1388 print"kassette=k":print"diske 
tte=d" 

1318 geta$:ifa$<>"k"anda$<>"d"then 
1318 

1328 ifa$="kK"thenfi$="":goto1348 
1338 fi$="d" 

1348 print:print"l=teil 2 laden" 
1358 print:print"s=teil 1 speicher 
ni 

13608 geta$:ifa$="1"then16B8 

1378 ifa$="s"then1628 

1388 goto1368 

1398 list:end 

1488 data169,024,141,017,255,169,1 
18, 141,020,1046 

1418 dataß83, 169,006, 141,821,003,8 
96, 165,218,822 

1428 data281,000,240,005,198,218,® 
76,814,286, 1158 

1438 data165,219, 133,216, 165,220, 1 
33,217,168, 1628 

1448 data®88,177,216,201,2008,288,8 
11,169,008,982 

1458 data133,219,169,862,133,228,8 
76,814,286, 1232 


« 


QUALLY GOES IN TOWN 


1468 data141,014, 255,208, 177,216, 1 


41,818,255, 1417 <ag> 
1478 data169,822,133,218, 165,216, 1 
05,002, 133, 1163 <mc> 
1488 data219,165,217,133,228,076,8 
14,206, 128, 1370 <gk> 
1498 data169,814,169,206,141,028,8 
03,140,821,874 <mo> 
1588 data3,88, 169,8,141,17,255,169 
‚199,1841 <am> 
1518 data141,18,255,96,0,0,8,08,80,5 
18 <gd> 
1528 scncelr:color1,1 <kd> 
1538 : <dj> 
1548 rem pruefsummen routine <kk> 
1558 print"list"m+k:color1,2:poke1 
319, 19:poke1328,13:poke239,2 <dg> 
1568 print"pruefsummenfehler in ze 
ile:"mtk <kf> 
1578 end <na> 
1580 : <jo> 
1598 rem laderoutine <ef> 
16088 scncelr:printfi$"load"+chr$( 34 
)+f$+"/2"+chr$( 34) <In> 
1618 poke1319, 19:poke1328, 13:poke2 
39,2:end <kn> 
1628 scnelr:printfi$"save"+chr$( 34 
)+f$+"/1"+chr$( 34) <bg> 
1638 poke1319, 19:poke132®, 13:poke2 
39,2:end <hm> 
1648 rem =========e=n=d=e========= <em> 


 CW- 
Mailbox 
24 Stunden 
online! 
Parity 
SNI 
Telefon 


O89/183951 


18 rem qually/2================016 
28 poke55,255:poke56,56:clr:gosub2 
878:trap28B48:g0t02568 

38 gosub829:gosub 1479: g0t0238 

A9 gosub9B9:g=1:gosub1959:char1,6, 
A,chr$( 18) +"299?"+chr$( 146) :goto23 


EN gosub999:g=-9:gosub94B:gosub9AB: 
gosub1369:g0t0238 

68 gosub8AB:gosub1339:gosub1159:go 
t0238 

78 gosubBßd:gosub1A3B:gata23d 

88 gosub8ßß:g=1:gosub 1859: gosub 138 
8:g0t0230 

98 gosub8Bd:g=19:gosub1858:chari,2 
5,6,chr$(5) +ju$:goto238 

108 gosub?78:g=1:gosub1B5B:g=24:go 
sub948:g0t0238 

119 gosub77d:g=1:gosub1859:g=24:go 
sub9AB: g0t0238 

128 gosub989:g=1:gosub 1959: goto239 
138 gosub?77d:g=B:gosub9A4d:g=24:gos 
ub 1959: g0t0238 

148 gosub77d:g=8:gosub 1858:g=24:g0 
sub 1859: got0238 

158 gosub?779:g=9:gosub 1959:g=24:go 
sub94@:char1,18,13,m$:g0t0238 

168 gosub869:g=24:gosub949:g=B:gos 
ub1258:g0t0238 

178 gosub2878:scnclr:fa=14:ku=53:v 
ol1:0p=3872:01=32 

188 trap2848:printchr$( 142) :q=1824 
198 s1=45:52=46:w1=41:w2=42:53=47: 
s5=49:56=50:kn=54:sb=48:57=76:s8=7 
7 

2088 ge=int(rnd( 1) #13) +2:m1=51:m2=5 
2:13=37:14=38:15=55:sb=48:k1=55:k2 
=55:55=49 

218 printchr$( 27) "m" :dimg%( 14,4) ,p 
0%[5) ‚,pe%(5) ,k%[7) ,1%C07) 

228 gosub2648:0p=3709:01=65:f9=355 
2:x1=8:p=4:bi=9:g0t0460 

238 x=x1+pe%[p) :f1=f9+po% p) 

248 poke65286,, peek( 65286) or 16 

258 ifge=bithencolor1,9:char1,28,1 
Mn Ki 

268 j=joy( 1) :ifj=@thenk=94:goto4d8 
278 ifl>3thengosub1918:g0oto2168 
288 ifj>7then498 

298 F=k%[ j) :pi=peek( Fi+f) :p2=peek( 
f1i+f+4B) 

388 ifpeek( fi+f+-48) =75thenx1=x:f9 
=f1:g0t01788 

318 ifj=1lorj=5thenk=94 

328 ifj=3thenk=91:elseifj=7thenk=9 


338 iff1+f+490>4871thenp=3:goto418 
348 iff1+f<3872thenp=1:goto41® 


QUALLY GOES IN TDWN 


358 ifp1<>320rp2<>32then588 

368 iff1<30720rf1>4871then2848 

378 pokef1,32:pokef1+48,32 

388 fi=fi+f:x=x+1%( j) 

398 ifx<=BOthenp=4:goto4iß:elseifx> 
=39thenp=2:goto418 

488 pokef1-g, 123:pokef1+48-q,126:p 
okef1,k:pokef1+48,95:g0t0268 

418 ifzi=1thenx=13:f1=3485:f9=op+4 
8:x1=22:g0t02388 

428 ifp=3andfl=1thenp=®:fl1=B:goto4 
68 

438 x1=x:f9=f1 

448 ifg%Cbi,p)=@thengosub1918:x1=2 
8:f9=3572:goto2188 

458 bi=g%(bi,p)::fr=® 

A468 fa=bi:ifbi<2thenfa=2 

470 poke65286,, peek( 65286) and239 
4588 color1,2,4:scnelr 

498 onbigoto38,48,58,68,78,88,98, 1 
00,110,128,138, 148,158, 168 

588 ifp1=95thenifp2=32then368 

518 if(p2=98orp2=91orp2=94) andp1=3 
2then368 

528 ifp1=59andsb=32thenl=1-1:sb=48 
:got0o2388 

538 ifp1=59then268 

548 ifp1=39orp1=48thenge=17:x1=x:f 
9=f1:gosub 1918: g0t02828 

558 ifp1=55andbi=1thenpokef1+f,65: 
01=65:15=32:1=1+1:g0t0248 

568 ifp1=55then2368 

578 ifp1=65andbi=1and15=32thenop=f 
1-48:01=55:pokeop,01:15=55:1=1-1:g 
0:02388 

588 ifp1=4lorp1=42thenw1=32:w2=32: 
1=1+1:poke3416,32:poke3417,32:goto 
368 

598 if(p1=51orp1=52) andbi<>7thengo 
sub 1918: got0o29088 

688 ifp1=43orp1=44thengosub1919:go 
t02898 

618 ifp1=47thens3=32:1=1+1:got0368 
628 ifp1=49thens5=32:1=1+1:got036® 
630 ifp1=54thenkn=32:1=1+1:got0368 
648 ifp1=51orp1=52thenm1=32:m2=32: 
1=1+1:got0368 

658 ifp1=55then2328 

668 ifp1=37orp1=38orp1=81lorp1-5Bth 
en2268 . 

678 iflp1=760rp1=77) andmi<>32theng 
osub1918:g0t02868 

688 ifp1=760rp1=77thens?7=32:58=32: 
goto368 

698 ifp1=48thensb=32:1=1+1:got036® 
788 ifp1=45orp1=46thens1=32:s2=32: 
poke3619,s1:poke3628,s2:1=1+1:goto 
268 


<ma> 
<ei> 
<jg> 
<kj> 
<dc> 


<ke> 


<nf> 


<ib>. 


<mj?> 
<kn> 
<po> 
<nd> 
<bj> 
<ne> 


<kf> 
<in> 


<ak> 


<ag> 
<1b> 


<oe> 
<hf> 
<di> 


<1j> 


<me> 
<mf> 
<ae> 
<aa> 
<dd> 


<hc> 


<ii> 
<fm> 


<aj?> 
<ki> 
<ga> 


<gb> 


<gg> 


718 ifp1=61andbi=1then2428 

728 ifp1=72orp1=73thengosub1918:go 
to2188 

738 ifpi=1thengosub1919:g0t02158 
748 ifp1=83orp1=85orp 1=82then2198 
758 ifp1=53orp1=56orp I=57orp1i=62o0r 
p1=-69orp1=7Borp1=88thengosub1918:g 
oto2118 


768 goto268 

778 char1,0,9,a5$+1$+a5$:char1,®,1 
6,3$:char1,16,8,a2$:char1,23,0,a2$ 
788 gosub1389:gosub 1330 

798 return 

808 char1,8,9,a$ 

818 char1,8,16,a5$+1$+a5$ 

828 char1,16,16,a2$:char1,23,16,a2 
$ 

838 gosub 1300: gosub 1348 

848 char1,17,2,ba$(2) :char1,33,4,b 
a$tl 1) 

858 return 

868 char1,23,9,85$:char1,23,16,a5$ 
878 char1,16,8,a3$:char1,23,8,a4$ 
888 gosub1388 

898 return 

988 char1,8,9,35$:char1,®8,16,35$ 
918 char1,23,8,33$:char1,16,8,34$ 
928 gosub1288 

938 return 

948 color1,3,6 

958 chari,g,®,chr$( 28) +b2$+"WXY" 
968 chari,g,1," WXXXY"+b5$+"A " 
978 chari,g,2,"WXXXXXY WXXXY":colo 
r1,fa,? 

988 chari,g,3,"AKKAKKA”+chr$( 28) +". 
WXXXXXY":color1,fa,? 

998 chari,g,4,"AKKAKKAAAAAAAA" 
1898 chari,g,5,"AAAAAAAAAAAAAA” 
1818 char1,g,6, "AAKKAAAAAAKKAA" 
1828 chari,g,7, "AANKAAAAKAKNAA" 
1830 char1i,g,8, "AAKKAAAAAAKKAA" 
1848 return 

1858 chari,g,®,chr$( 28) +b3$+"WY"+b 
agH"WY " 

1868 charl,g,1,b2$+"WXXY"+b2$+"WXX 
y" 

1878 char1,g,2,"” WXXXXYWAXXXY" 
1088 chari1,g,3, "WXXXXXXXXXKXXY" ca 
lori,fa,5 z 

10898 char1,g,4,"AAAAAAAAAAAAAA” 
1188 char!,g,5, "AKKAAAAAAAAAKA" 
1118 char1,g,6, "AKKAKKAAAKKAKA" 
112@ chari,g,7,"AAAANKAAAKNAAA” 
1138 char1,g,8, "AAAAKKAAAKKAAA” 
1148 return 

1158 char1,8,24,a5$+1$+a5$ 

1168 char1,8,8,"" 

1178 printtab( 9) chr$( 28) +"WY" 


« 


QUALLY GOES IN TOWN 


1188 printtab(B) "WXXY" 

1198 printtab( ?) "WXXXXY"b3$"”:"chr$ 
(5) 

1288 printtab( 8) "AAAA"chr$( 28) "XXX 
XXXXY"chr$(5} 

1218 printtab(B) "AAKAAAAAKKAA” 
1228 printtab(B) "AAAAAAAAAAAA” 
123@ printtab( 8) "AKKAAAKKAAAAAAKKA 
Ä® 

1248 printtab( 8) "AKKAAANKAAAAAANKA 
A” 

1258 printtab( 8) "AAAAAAKKAAAAAAKKA 
A" 

1268 printleft$(a$,38) 

1278 char1,4,11,ba$(2) :char1,7,9,b 
a$( 2) 

1288 char1,38,6,ba${ 1):char1,35,5, 
ba$( 2) 

1298 char1,27,12,ba$( 1) :char1,33, 1 
5,ba$(2) 

1388 char1,36,18,ba$( 2) 

1318 char1,8,17,ba$(2):char1,2,18, 
ba$( 1) 

1328 return 

1338 char1,15,18,ba$(2):char1,28, 1 
7,ba$( 1) 

1348 char1,26,18,ba$(2) 

1358 return 

1368 char1,18,3,chr$( 151) +"CD” 
1378 return 

1388 char1,15,5,chr$( 153) +"KKKKKKY 


1398 
1498 
1418 


char1, 15,6, "KKKKKKKY" 
char1,15,7,"KKKKKKKK" 
char1, 15,8, "NNNNNNNN” 

1428 return 

1438 char1,23,5,chr$( 158) +"======= 
":char1,23,6,"="+b5$+"=":char1,23, 
7,"=986"+b2$+"=" 

1448 char1,23,8, "=KKKKK=" 

1458 char1,8,2,ba$( 2) 

1468 return 

1478 char1,17,1,"" 

1488 color1,2,5 

1498 print":"b5$":" 

1588 printtab( 17)"A A A A” 

1518 printtab( 5) "WXY"b$"AAAAAAA”b$ 
"WAY" 

1522 Fory=ito2:printtab( 5) "AAA”h$” 
AAAAAAA"bE$"AAA” :next 

1538 Fort=1to11:printtabl 5) d$d$a$” 
A" :next:color1,4,7 

1544 fort=7to34step4:char1,t,8, "KK 
":char1,t,9,"KK":next 

1558 char1,22,15," ":color1,1@,1 
1568 Fort=12t016:char1,17,t,";;;;5; 
":next 

1578 pokeop,o1 


116 


1588 
1598 
1688 


return 
senelr:fl=1:colori,fa,4 
char1,5,4,d$+d$+left$(d$,7) 
1618 char1,5,15,d$+1$+d$+"A" 

1628 fort=5t014:char1,5,t,"A":char 
1,31,t,"A" 


1638 chari,15,18+t,"A":char1,21,18 
+t,"A":nex 

1648 return 

1658 poke2496,79:poke2415,82:poke2 
436,97:poke2358,76:poke2595, 127:po 
ke2607,91 

1668 poke3528,57:poke3439,53:poke3 
468,62:poke3374,88:poke3619,s1:pok 
e36208,s2 

1678 color1,18,6 

1688 char1,1@,18,"EFG "+chr$( 158) + 
" +," 

1698 return 

1788 ifze=Bandbi<>Sthengosub191@:g 
0ot01938 

1718 F1=1:f1=4011:x=19:gr=1 

1728 ifbi<>5thengosub 1598 

1738 onbigoto248, 1758, 1770, 1788, 18 
580,186, 1888 

1748 gosub 1658:g0t02408 

1758 gosub 1658:poke3368,k1:poke34B 
0,k2 
1768 
1778 
7,w2: 


goto248 
gosub1658:poke3416,w1:poke341 
goto248 

1788 irf9<3498then 1848 

1798 ifs3<>32thengosub191@:print"g 
eschlossen":goto2248 

1888 color1,5,5:ifp9=@andkn=32then 
1=1-2:p9=1:elseifkn<>32thengosub19 
18:g0oto2148 

1818 fort=6t012step6:char1,6,t,"2" 
:fory=1to8:printb2$"2";:next 

1828 char1,6,t+1,"Q":fory=1to8:pri 
ntb2$"Q"; :next:next 

1838 la=int(rnd( 1) *384+3318) :ifpee 
k(la)=58orpeek( 1a) =81then248@:else1I 
830 

1848 gosub165@:char1,18,6,chr$( 158 
)+"6 HIHI" :poke2516, 121:poke3540, s 
3:g0t0248 

1850 gosub1919:g0t01958 

1868 ifwi<>32thengosub 1918:g0t0287 
(4) 

1878 gosub 1658: 1=8:w1=41:w2=42:pok 
e368B, s5:goto240 

1888 gosub1658:char1,15,5,g$:poke3 
327,s7:poke3367, s8:poke3688 ,m2 
1898 poke2616, 126:poke3648,mi 

1988 goto248 

1918 scnelr:u=4:gosub2828:color1,1 
1928 printchr$( 14) :char1,1,18,"":r 


<hn> 


QUALLY GOES IN TOWN 


eturn 

1938 print"sie wissen doch nicht w 
as los ist!!!":print" informieren 

sie sich!" 

1948 g0t02248 

1958 print"in der zeitung steht... 
..":ifge=17then1998 

1968 fort=1to18@8:next:print 

1978 print” die verkaeuferin schre 
It” 


02248 

1998 print" schon wieder graeber g 
eschaendet.!!" 

2888 print" "streichholzpreise gest 
iegen!!!":print”’heino gittarist b 

ei ’bap’???7" 

2018 print” nibelungenschatz in un 
serer stadt???":ze=1:g0t02248 

2028 print"in der geldboerse befan 

den sich 88 pfg":goto2248 

2838 print"der wirt sagt: ’wenn sie 
mir eine oel-" 

2848 print" lampe besorgen bekomme 

n sie die leiter":goto2248 

2858 print"im grab lag eine alte o 

ellampe!!":goto2248 

2868 print"das seil hatte genau ih 

re halsgroesse!!":g0t02218 

2078 print"ein bissiger hund hat s 
ie zerfleischt!!":goto2218 

28088 print"sie sind in ein messer 

gefallen!!!":goto2218 

2898 print"die scharfe axt hat ihr 
leben beendet!!"::g0t02218 

2188 print"der altar stuerzte ein 
und begrub sie!!":goto2218 

2118 print" ’diebstahl’,schreit der 
eigentuemer...." 

2128 print"und erschlaegt sie":got 

02218 

2138 print"sie sind in den brunnen 
gestuerzt!!":g0t02218 

2148 print"graf vampyrus ist ueber 
sie hergefallen":goto2218 

2158 print"sie sind durch ein mors 

ches brett ":print” gestuerzt!t!!": 
goto2218 

2168 print"herzanfall!!!sie sollte 
n sich nicht" i 

2178 print” ueberanstrengen!3 teil 
e tragen genuegt!":goto2218 

2188 print"der bus faehrt erst in" 

bi"wochen!1!":g0t02248 

2198 b=1:vol8:poke1694,2:fora=1to2 
08:color4,b,4:b=b+1:ifb=17thenb=1 
2288 k=int( rnd( 1) *999+3872) :pokek, 
36:next:goto2228 


<dg> 
<gk> 
<po> 


<mc> 
<gh> 


<nb> 


<io>. 


<hc> 


<ah> 
<jf> 
<ff> 
<co> 
<jm> 
<oc> 
<jf> 
<ad> 
<ae> 
<en> 
<pf> 
<jj? 
<mg> 
<ij> 


<bd> 


<nn> 
<ni> 
<na> 
<pg> 
<fm> 


<nc> 
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2218 gosub2B3B:gosub286B: run 

2228 pake1694,22:gosub1918:print"g 
ratulation":print"” neues spiel <jo 
9 

2238 gosub286®:run 

2248 gosub2830:gosub2868: voll 


2258 SE RERTBELRTORERL TER 
) :u=1:gosub2828:g0oto418 


2268 ifbi=2then2328 

2278 ifs5<>32then248 

2288 iffi+f=laorfi+f+48=1lathenkn=5 
4:55=49:53=47:goto2318 

2298 ifp1=58thenpokef1+f-1824, 127: 
pokef1+f,96:g0t0258 

2388 ifp1=Bithenpokefi+f-1824, 127: 
pokef1i+f,97:g0t0258 

2318 13=32:14=32:gosub1918:g0t0285 
8 

2328 if15<>32andk 1=37thengosub 1918 
:print"zuerst die leiter zurueck": 
goto2248 

2338 if15=32then2358 

2348 if13<>32thengosub1918:g0t0283 
8 

2358 k1=55:kK2=55:15=55:13=32:14=32 
:got 0368 

2368 if13<>32thengosub191A:goto283 
(7) 

2378 kK1=37:kK2=38:13=37:14=38:15=32 
:g0ot 0368 

2388 ifzi=Bthenx1=x:f9=f1:x=19:f1= 
4811 

2398 zi=8:if1l3=32thensb=32 

2488 gosub 1598:gosub1658:char1,21, 
8,ba$( 2) :color1,4,5 

2418 char1, 18,18, "==="+c1$+c1$+c1$ 
+"AAA"+c1$+c1$+c1$+"AAA":goto248 


2428 ifs7=76thengosub 1918:g0t02138 
2438 zi=1:1=®:scncelr 

2448 x1=x:f9=f1:f1=1:p=1:x=19:f1=4 
811 

2458 gosub 1598 

2468 poke3851,sb 

2478 if13=32ands1=32thenqw=1Bß:else 
qw=1 ; 

2488 colori,qw,4 

2498 char1,11,7,"aaa"+c1$+c1$+"aaa 


"+c1$+c1$+"aaa" 

2588 char1,14,14,"aa aaaaaaaaaaaaa 
a" 

2518 char1,14,13,"a" 

2528 char1,14,12,"a" 

2538 char1,14,11,"aaaaaaaaaaaaaa a 
a":color1,9,6 

2548 char1,7,8,"STTTU":char1,7,9," 
ARVRR":char1,7,18, "RARAR" 

2558 goto26B 

2560 v=65298:pokev,peek(v)and251:p 


<om> 


<ff> 
<ln> 
<pf> 
<ai> 
<gp> 
<oe> 
<fh> 
<en> 
<el> 
<gi> 
<jd> 
<nd> 
<ei> 
<lc> 
<ga> 
<gp> 


<pa> 
<nf> 


<pe> 
<pg> 
<am> 
<dh> 
<kc> 
<en> 


<jl> 


<np> 
<ol> 


<nm> 
<kn> 
<nh> 
<nn> 


<fo> 


<da> 
<kj> 


QUALLY GOES IN TOWN 


okev+t1,peek( v+1) and3or56:sys1638 

2578 scnelr 

2588 u=1:gosub2828:printchr$( 14) 

2598 a$( 1)=b3$+"gally goes in town 
":a$(2)=" (c) 1987 by n.schmelzer 

2688 char1,9,18,"":color1,14,7 

2618 fora=1to2:forb=1tolen(a$la)): 

printtab( 8+b)mid$(a$(a),b,1); 

2628 forc=1to6@:nextc:nextb:print: 

print:nexta 

2638 gosub2868:run178 

2648 fora=1to14:forb=1to4:readg%la 
‚b) :nextb,a 

2658 dataß,8,13,0,0,08,3,8,2,0,8,9, 

0,0,9,8,0,10,12,14,0,7,14,0,0,13,1 

0,6,08,2,8,13 

2668 data4,3,8,11,7,8,11,5,18,9,8, 
12,5,11,8,0,1,8,08,7,6,5,80,8 

2678 K%L1)=-48:K%L5)=40:K%L7)=-1:Kk 

%[3)=1 

2688 po%( 1) =928:po%( 2) =-39:po%( 3) = 

-928:p0%[ 4)=39:1%[7)=-1:1%[3)=1 

2698 pe%( 1)=B:pe%( 2)=-39:pe%( 3) =®: 

pe%[ 4) =39 

2788 c1$=chr$( 17) +chr$( 157) :c1$=ch 

r${ 157) :m$=chr$( 153) +"4"+chr$( 129) 

+01$+"3" 

2718 fora=1t05:s5t$=st$+"<"+c1$:nex 
t 

2720 a2$=st$+tleft$(st$, 18) :a3$=st$ 

+st$+st$+tst$+left$( st$, 16) 

27308 a4$=st$+st$+" "+c1$+" "+c1$+" 
"+01$+" "+01$+” "+c1$+" "+c1$+st$ 

+s5t$+"<" 

2740 aß="<<<<cc<e<c":af=saftagtaßte 

$ 

2758 a5$=left$(a$, 17) 

2768 ba$( 1) =chr$( 158) +"0"+c1$+c1$+ 
"000”+c1$+c1$+chr$( 129) +"0"+c1$+"0 
"+01$+"0" 

2778 ba$( 2) =chr$( 155) +"0O"+c1$+c1$+ 
"000"+c1$+c1$+c1$+"000"+c1$+c1$+cl 
$+"000"+c1$+c1$ 

2788 ba$( 2) =ba$( 2) +chr$( 129) +"0"+c 
1$+"0"+01$+"0" 

2798 ju$="B"+chr$( 124) +"J"+c1$+c1$ 
+chr$( 125) 

2888 g$=chr$( 129) +chr$( 162) +chr$f 1 

62) +c1$+chr$( 1798) +c 1$+chr$( 178) +c 1 

$+chr$( 178) 

2818 return 

2828 color@,u,4:color4 ,u,4:return 

2838 fort=1to8:fortt=1to18®:nexttt 
:volt:nextt:return 

2848 sys1718:poke65286 ,peek( 65286) 

or16 

2858 poke65299,288:scncelr:printerr 


$(er)"” in":help:printchr$(27)"1":p 


rintchr$( 14) :end <cp> 
2868 ifjoy( 1Jorioy(2)>@thenreturn: 
elsegoto2868 <am> 
2878 b$=chr$( 32) :b2$=b$+b$:b3$=b2$ 
+b$:b4$=b3$+b$:b5$=bA4$+b$:1$=b5$+b 
$ <en> 
2888 b$=b5$+bA4$:d$="AAAAAAAAAA":re 
turn <cm> 
2898 rem ========@=n=d=>e========== <mi> 


BASIC-SCHLÜSSELWÖRTER 


Kurz, kürzer, 
am kürzesten: 


98 Abkürzungen müssen Sie beim C16/116/Plus4 
lernen, wenn Sie zum Editieren von BasicProgrammen 
die Basic-Kürzel optimal einsetzen wollen. Beim 
C128 sind es gar 139. Wenn Sie einmal einen anderen 
Commodore-Rechner in den Fingern haben, stellen 
Sie sehr bald fest, daß zum Überfluß die Basic-Codes 
in den verschiedenen Basic-Versionen 7.0/3.5/2.0 
auch noch mit unterschiedlichen Kürzeln belegt sind. 


Wenn die Computer-Her- 
steller es schon unterein- 
ander nicht schaffen, eine 
wie auch immer geartete 
Normung zu vereinbaren 
— die wirtschaftlichen 
Gründe dafür sind be- 
kannt — sollte man ei- 
gentlich davon ausgehen 
können, daß dies wenig- 
stens im Geräteangebot 
eines Herstellers möglich 
wäre. Weit gefehlt, denn 
auch in sogenannten un- 
wichtigen Details, wie Ab- 
kürzungen von BASIC- 
Schlüsselwörtern beim 
Editieren, sind einige gra- 
vierende Unterschiede 
festzustellen. 


BASIC-VERSIONEN 
MIT TOKENS-MÄNGELN 


Daß ein BASIC 7.0 des 
128PC einen größeren 
Befehlsumfang als das 
schmalbrüstige BASIC 2.0 
des C64, das angejahrte 
BASIC 4.0 der CBM-8000- 
Serie oder das schon bes- 
sere BASIC 3.5 der C16/ 
Plus4-Reihe hat, ist ja 
landläufig bekannt. Daß 
aber für die Versionen 
2.0/3.5/4.0/7.0 auch un- 
terschiedliche Abkürzun- 
gen für die BASIC-Schlüs- 
selwörter der Commodore- 
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Rechner verwendet wur- 
den, wissen nur die, die 
mehrere Computer mit 
unterschiedlichen 
BASIC-Versionen besitzen. 
Diese User haben wohl 
bei mancher Eingabe ei- 
nige unliebsame Überra- 
schungen erlebt, denn der 
entsprechende BASIC-In- 
terpreter kann nur seine 
ihm verständliche BASIC- 
Version erkennen. Dies 
trifft natürlich auch zu, 
wenn höherwertige BA- 
SIC-Versionen in nieder- 
bzw. anderswertige gela- 
den werden. Die wahr- 
scheinliche Folge: Pro- 
grammzerstörung. 

Zum Beispiel ist der BA- 
SIC-Befehl BOX‘ ist in 
der 2.0-BASIC-Version 
des C64 nicht enthalten, 
in der 3.5-BASIC-Version 
der C16/Plus4-Rechner 
kann man den BASIC- 
Befehl ‘BOX‘ mit B 
SHIFT O abkürzen. Die- 
ses Kürzel ist in der 7.0- 
BASIC-Version des 
128PC nicht möglich, da 
hier eine Abkürzung für 
“BOX nicht existiert. 

B SHIFT O steht viel- 
mehr für den 7.0-Befehl 
‘BOOT‘. Im 128PC-Mo- 
dus sind für folgende 
BASIC-Schlüsselwörter 


mm le nn 


TIPS & TRICKS | 


ar Abkürzungen mög- 
lich: 

BOX - CONT — COS — 
DEC - DIM - DO — 
DS$ — EL - ELSE 

END - ER — ERR$ — 
EXIT-FN- GO — 
GO64 — IF- INPUT — 
INT — LEN - LOG — 
NEW - OFF- ON - OR 


— POS( — QUIT — REM 
— SPC( — ST- TAN — 
TI.— TI$ — TO 


In der nachfolgenden Ver- 
gleichsliste sind die mög- 
lichen Abkürzungen aller 
vier BASIC-Versionen 2.0/ 
3.5/4.0/7.0 enthalten, vor- 
ausgesetzt, das BASIC- 
Schlüsselwort ist in Ihrem 
BASIC-Interpreter enthal- 
ten bzw. mit Ihrer Konfi- 
guration überhaupt mög- 
lich. Nun viel Spaß mit 
dem Auswendiglernen der 
Kürzel, denn Sie sollten 
schon sattelfest bei Ihrer 
mühsamen Editierarbeit 
sein. Alleine Basic 7.0 

hat satte 139 Abkürzun- 
gen, bei Version 3.5 gibt 
es „nur“ 98 und bei 
BASIC 2.0 hat gar lächer- 
liche 52 Abkürzungen 
(siehe Tabelle 1). 


BASIC-Befehle werden, 
zur Einsparung von Spei- 
cherplatz und zur Be- 
schleunigung der Pro- 
grammausführung, in ei- 
nen bestimmten Code 
umgewandelt, die Tokens. 
Das heißt, es erscheint 
im Speicher nicht das ge- 
samte Wort, sondern ein 
Byte (Token) — bzw. 
zwei Byte (Vortoken/ 
Token) beim 128PC — 
als Token-Codezahl. Dies 
spart natürlich Speicher- 
platz, denn das Wort 
“PRINT“ in Anführungs- 
zeichen wird als HEX 
$50 $52 $49 $4E $54 / 
DEZ 80 82 73 78 84 

(5 Byte), das Schlüssel- 
befehlswort PRINT aber 
als HEX $99 / DEZ 153 
(1 Byte) abgespeichert. 
Der 7.0-BASIC-Befehls- 
umfang ist aber für die al- 
te Tokenliste — vom 4.0- 
BASIC des CBM 8032 
von HEX $80- bis DB (DEZ 
128 bis 219); oder vom 
2.0-BASIC des C64, die 
von HEX $80 bis $CB 
(DEZ 128 bis 203), oder 
vom 3.5-BASIC des C16/ 


128 bis 219); oder vom 
2.0 Basic des C64, die 
von HEX $80 bis $CB 
(DEZ 128 bis 203), oder 
vom 3.5 Basic des C16/ 
Plus4 HEX $80 bis $FD 
(DEZ 128 bis 253) — viel 
zu klein, denn bei $FF 
(255) ist die Fahnenstan- 
ge zu Ende, aber mit ei- 
nem Trick (Vor-Token) 
kann die Tokenliste er- 
weitert werden: $CE 
(206) & $FE (254) sind 
die Vor-Token Adressen 
des Commodore 128PC, 
die sich in weitere 47 
BASIC-Schlüsselbefehls- 
worte verzweigen. 


CBM 8 BIT ASCII CODE 


Code 00 

= Zeilenende 
Code 01 bis 31 

= ASCII-Steuercodes 
Code 32 bis 95 

= CBM/ASCII-Zeichen 
Code 96 bis 127 

= CBM/ASCII-Zeichen 
Code 128 bis 203 

= BASIC-Token VC20/ 


C64 
Code 128 bis 218 
= BASIC-Token CBM 
8032 


Code 128 bis 253 
= BASIC-Token C16/ 
C116/Plus4 
Code 128 bis 254 
= BASIC-Token 128PC 
Code 254 + 38 
= BASIC-Vortoken 
128PC 
Code 206 +09 
= BASIC-Vortoken 
128PC 
Code 255 
= Pi-Zeichen. 
Abkürzungen CBM und 
ASCII stehen für 
CBM = Commodore 
Business Machines 
ASCII= American 
Standard Code 
for Information 
Interchange. 
Anhand eines Beispiels 
wollen wir die Eingabevor- 
teile von Abkürzungen 
aufzeigen. Wenn Pro- 
grammzeilen mit Kürzeln 
eingegeben werden, wan- 
delt der Basic-Interpre- 
ter, bei der Übernahme 
in seinen Arbeitsspeicher, 
die Programmzeilen wie 
folgt um — vorausgesetzt, 
die angewandten Abkür- 
zungen sind in seiner 


Tokenliste enthalten und 
keine Syntax-Eingabefeh- 
ler wurden begangen. 


Eingabe: 
10?cH(147)“COMMO- 
DORE WELT“ 
20ifx>ytH?“GROESSER“ 
:elseify>xtH?“KLEI 
NER “:else?“GLEICH“ 


Ergebnis: 

1Oprintchr$(147) 
“COMMODORE WELT“ 

20ifx>ythenprint 
“GROESSER “:elseify 
>xthenprint KLEINER 
“: elseprint‘‘ GLEICH“ 


Beim Editieren wurden 82 
Zeichen bei nur zwei Pro- 
grammzeilen gespart. 
Wenn Sie jetzt an Pro- 
gramme mit mehr als zwei 
Programmzeilen denken 
und eine mögliche Einspa- 
rung von bis 25 Prozent 
sehen, verlieren auch 

30 KByte-Listings ihren 
Schrecken, der von der 
Eingabe abhält. 

verlieren auch 30KByte- 
Listings ihren Schrecken, 
der von der Eingabe ab- 
hält. 

Der bequemere Weg ist 
natürlich, sich das Pro- 
gramm zu kaufen, aber 
der Lerneffekt bei der 
Eingabe und der anschlie- 
ßenden Fehlersuche, ist 
bei Selbsteditiertem we- 
sentlich besser (siehe 
Tabelle 2). 


Wenn Sie nun planen, 
BASIC-Programme von 
CBM 2000 — CBM 3000 
— CBM 4000 — CBM 
8000 — CBM 600 — 

CBM 700 — VC20 — C64 
— SX64 - C16 - C116 — 
Plus4 — 128PC — plus 
verschiedene BASIC-Er- 
weiterungen an.Ihrer 
Rechnerkonfiguration, 
wie sie auch immer hei- 
ßen mag, lauffähig zu be- 
kommen, müssen Sie eini- 
ge Dinge beachten: 
Inkompatiblität auf der 
Hardware-Seite kann na- 
türlich nicht von BASIC 
gelöst werden, aber 
durch Weglassen oder 
Hinzufügen können rech- 
nerspezifische Unterschie- 
de kaschiert werden. Ein 
PET BASIC-Programm, 
das keine Farbbefehle be- 
sitzt, kann auf dem C64 
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nachkoloriert oder ein 
C64-BASIC-Programm 
entkoloriert auf den PET 
umgeschrieben werden; 
dies ist einfach. Aber an- 
dere Dinge bereiten da 
größere Probleme: 
SPRITE-Befehle auf ei- 
nem Computer, der kei- 
ne SPRITE-Befehle hat, 
SID SOUND-Befehle für 
Computer ohne den 
SOUND INTERFACE 
DEVICE-Chip, hochauf- 
lösende Grafik in einem 
Computer ohne Bit- 
mapped Display oder fal- 
sche PEEK- und POKE- 
Adressen (Bildschirm-, 
Color-CODES) bzw. spe- 
zielle SYS-Befehle, schik- 
ken den Computer meist 
ins Nirwana. Hinzu kom- 
men dann noch die Pro- 
bleme der Bildschirm- 
und Zeichen-Ausgabe: 
Unterschiedliche 22, 

40, oder 80 Zeichen pro 
Zeile, verschiedene Cha- 
rakterzeichen ergeben an- 
dere Resultate. Auch die 
Geschwindigkeit der Com- 
modore-Rechner diffe- 
riert erheblich, der abso- 
lut schnellste ist der 
VC20, man höre und stau- 
ne, die langsamsten sind 
Plus4 und 128PC. Die 
CBM 600/700-Rechner 
sind dagegen so schnell, 
daß man sie bei bestimm- 
ten Problemlösungen ver- 
langsamen muß. 

Mit diesen TOKEN-Ta- 
bellen wollen wir Ihnen 
dabei helfen, BASIC-Pro- 
gramme an Ihren Rechner- 
typ anzupassen. Jetzt kön- 
nen wir nur noch viel 
Spaß bei der Umsetzung 
von Programmen auf 

Ihr Rechner-System 
wünschen und viel Ge- 
duld bei der Suche der 
entsprechenden Rechner- 
routinen und speziellen 
Adressen. Robert Wagner 


Brot 


für die Welt 
EIER 
»Je mehr wir zu lieben und 

hinzugeben fähig sind, desto 
sinnvoller ist unser Leben.« 

(H. Hesse) 

Postf. 476, 7000 Stuttgart 1 


Postgiro Köln 500 500-500 


Nutzung von USR-Files 


USR-Files sind im Directory durch ein URS am Ende an- 
stelle von PRG oder SEQ gekennzeichnet. Sie können ge- 
nauso wie SEQ-Files behandelt werden. 

Vorteil: Man kann so gekennzeichnete Files besser ein- 
ordnen. 

Beispiel: Bildschirm in usr-file 

63010 input“ programmname‘“‘;p$:printchr$(147); 
63020 open2,8,2,p$+“ ‚u,w“:open1,0:input#l,q :close 
l:open3,3:printchr$(19); 

63030 fori=1t01000:get#3 ,a$:print#2,a$;:next:close 
3:close2 


C16/116 Plus4 Minilistschutz 


Programmschutz 


Findet der BASIC-Interpreter im Speicher eine 0, so 
gilt die BASIC-Zeile als beendet, der Interpreter über- 
springt die nächsten vier Zeichen und fährt dann fort. 


Dies kann man ausnutzen: An den Anfang einer jeden 
Zeile, die man schützen will, setzt man ein #Zeichen 
und vier beliebige Zeichen. An das Ende des Programms 
auf der Rückseite. Mit RUN 63000 starten. 


Formatierte Eingabe 


Will man ein Programm übersichtlicher gestalten, so kann 
man Schleifen und ähnliches durch Einrücken hervor- 
heben: 

1 fori=1to10 

2 printi 

3 next 

Führende Leerstellen werden bei der Eingabe aber über- 
sprungen. Eine Möglichkeit ist, ein Grafikzeichen (zum 
Beispiel SHIFT/K) nach der Zeilennummer einzugeben. 
Dieses wird nicht aufgenommen, aber die folgenden Leer- 
zeichen. Einfacher ist es die CHRGET-Routine (steht im 
RAM) abzuändern. Sie vergleicht das eingegebene Zei- 
chen mit dem Leerzeichen und überspringt es. 


C16/116 Plus4 Gerätenummer 


Aktuelle Gerätenummer 


Die zweite Zahl nach der Kanalnummer beim OPEN- 
Befehl ist die Gerätenummer. Beim Abspeichern von 
Daten muß diese meist vom Programmbenutzer erfragt 
werden. = 


Mit PEEK(174) kann man im Programm die zuletzt an- 
gesprochene Gerätenummer erfragen. Da das Programm 
ja meist vom Datenträger geladen wurde, entspricht diese 
Zahl auch der beim Abspeichern. 


C16/116 Plus4 USR-Files 


C16/116 Plus4 CHRGET-Routine 


C16/116 Plus4 EOR inBASIC 


AEORB=(AORB)-(AANDB) 


Bei einer logischen Verknüpfung einer Zahl A durch EOR 
(Exklusives OR) mit einer zweiten B, werden nur solche 
Bits zu 1, die vorher nur in A oder in B ungleich 0 war. 
Wird eine Zahl zweimal mit der gleichen Zahl EOR ver- 


knüpft, so kommt wieder die gleiche. Zahl heraus. Dies 
kann man beim Verschlüsseln von Nachrichten nutzen 
(Rückseite). 


C16/116 Plus4 Listschutz entfernen 


Listschutzkiller 


Hat man sein Programm dadurch geschützt, indem man 
an den Anfang jeder BASIC-Zeile eine 0, gefolgt von 

vier beliebigen Zeichen, gebracht hat, so kann man die- 
sen Schutz mit dem Programm auf der Rückseite wieder 
rückgängig machen (wirkt nur gegen diesen Listschutz). 


An das Programmende anhängen und mit RUN 63000 
starten. 


C16/116 Plus4 Reformer 


Führende Leerstellen entfernen 


Hat man ein Programm durch Einrückungen übersicht- 
licher gestaltet, so kann man diese nach Programmfertig- 
stellung entfernen (platzsparend, schneller), indem man 
die Zeilen listet und mit RETURN nocheinmal über- 
nimmt. Einfacher mit folgendem Programm: 


1000 zn=10 :rem * formatierung weg * 

1010 printchr$(147)“ list“ zn:print:print:print‘‘zn=‘“ 
zn+l0 “:gotol010° 

1020 t=1319:fori=ttot+9:pokei,13:next:poket,19:poket 
+2,19:poket+3,17:poke239,10 


C16/116 Plus4 Programmiertricks 


Auffinden von Unterprogrammen 


Beim Erstellen eines Programms wählt man meist ein- 
fach zu merkende Zeilennummern für die Unterpro- 
gramme und schreibt sich diese auf. 

Nach einem Renumber ändern sich diese Zeilennum- 
mern natürlich. Damit man dann trotzdem noch weiß, 
was’zum Beispiel *GOSUB426‘ bedeutet, kann man sich 
‘Dummy‘-Sprünge ins Programm schreiben. 


C16/116 Plus4 


EOR in BASIC 


Beispiel für EOR: 


10 rem * * codierer * * 

20 input “schluessel (1 zeichen)‘‘;s 

30 input “wort“;wS&:d=len(w$): Kg=« « 
40 s=asc(s$):for i=l to d 

50 w=asc(mid$ (w$;i,1)) 

60 k$=k$+chr$((sor w)—(s and w)):next 
70 print“ verschluesselt‘‘‚k$:w$=k$:k$=" “ 
80 fori=ltod 

90 w=asc(mid$(w$,i,1)) 

100 k$=k$+chr$((s or w)—(s and w)):next 
110 print‘entschluesselt“,k$:k$=" “ 


C16/116 Plus4 Listschutz entfernen 


Null am Anfang der BASIC-Zeile wird durch ‘:‘ ersetzt. 


63000 rem ** listschutzkiller *** 

63010 n0:10:for i=peek (43)+256*peek(44)—1 to 
peek(45)+256*peek(46) 

63020 if peek(i)<>0 then 63050 

63022 zn=peek(it3)+256*peek(it4):print zn:if 
zn=63000 then end 

63030 if zn>nO then if peek(it5)=0 then pokeit5,58 
63040 i=i+5 

63050 next:end 


C16/116 Plus4 Reformer 


Anmerkung: 


Der Zeilenabstand muß konstant sein (mit RENUMBER, 


hier 10, kann in 1000 und 1010 geändert werden). 
Die Zeilen dürfen nicht länger als 88 Zeichen sein. 


C16/116 Plus4 Programmiertricks 


Wird eine neue Unterroutine angelegt, so schreibt man 
sich die Einsprungadresse mit ‘GOTO....:REM....‘ an den 
Programmanfang und sort durch einen GOTO- Befehl da- 
für, daß diese Zeile nicht durchlaufen wird. Nach einem 
RENUMBER ändert sich das Sprungziel in der Merkzeile 
mit und man kann immer leicht die Routine wieder- 
finden. 


Beispiel: 

10 goto 100 

20 goto 1000:rem warteschleife 
30 goto 2000:rem suchroutine 
100 a=3:rem ** programmstart ** 


C16/116 Plus4 CHRGET-Routine 


C16/116 Plus4 USR-Files 


Mit drei Zeilen kann man die so erzeugte Maske wieder auf 
den Schirm bringen: 


60000 rem *usr in bildschirm **** 


60010 input‘‘programmname‘‘;p$:printchr$(147);:open2 
‚8,2,p$+“ u,r“ 


60020 fori=1t01000: get#2,q$:printg$; if st= 0 then 


next 


60030 close2 


Bei Kassette gibt es keine USR-Files, hier muß man den 
OPEN-Befehl in 60010 und 63020 in ‘open2,1,1,p$:‘ 


ändern. 


C16/116 Plus4 Minilistschutz 


Die Zeilen 10 und 20 sind zum Ausprobieren. Von ge- 
schützten Zeilen wird nur die Zeilennummer gelistet. 
10 rem ** copyrightvermerk ** 

20 #1234print“ Programm OK“ :end 

63000 rem ** minilistschutz *** ö 

63010 n0=10:for i=peek(43)+256*peek(44)—1 to peek 
(45)+256*peek(46) 

63020 if peek(i)<>0 then 63050 

63022 zn=peek(it3)+256*peek(it4):print zn:if zn= 
63000 then end 

63030 if zn>nO then if peek(i+5)=asc(‘‘#) then pokei 
+5,0 

63040 i=it5 

63050 next:end 


Beim C16/P4 geht CHRGET von 1148-1171. In 1162 
steht 32 (CMP #$20). Ändert man dies durch POKE 
1162,1 ab, so wird mit Code 1 verglichen, der nicht vor- 
kommt. Jetzt wird jedes Leerzeichen auch übernommen. 
Vorsicht: Vor RUN wieder normalisieren mit POKE 
1162,32, da sonst alle Leerzeichen im Text einen 
SYNTAX ERROR erzeugen. 


C16/116 Plus4 Gerätenummer 


Beispiel: 

10 if peek(174) =1 then print‘‘dieses programm wurde 
von kassette geladen‘‘:end 

20 if peek(174) =8 then print“ dieses programm wurde 
von diskette geladen“ :end 

30 print‘‘keine zuordnung moeglich‘ 


| TIPS & TRICKS 


Tabelle 1: 


nn nn nn 


Abkürzungen von BASIC-Schlüsselwörtern und deren TOKEN und VORTOKEN in Dezimal und Hexadezinal 
bei Commodore Computern CBMBA32/VC28/Ca4/C16/CH1a/Plus4/t2BPC 


BASIC BASIC 7.8 BASIC 4,8 BASIC 3.5 BASIC 2.0 TOKENS/DEZIMAL TOKENS/HEXADEZIMAL 
EDIT 128PC CBMBa32 Cis/Cile/P4  VC2B/64 VT 7.0/4,.0/3,5/2.8 VT 7.0/4,0/3.5/2.0 
ABS A SHIFITB A SHIFTB A SHIFTB A SHIFTB 182/182/182/182 B6/ B6/ B6/ B& 
AND A SHIITNA SHIETN A SHFTN A SHIFTN 175/1757/175/175 AF/ AF/ AF/ AF 
APPEND A SHIFTP A SHIFTP keine keine 254 14 /212/---/--- FE 0QE/ D4/ --/ -- 
ASC A SHTS A SHIFTTS A SHFTS A  SHIFTS 198/198/198/198 Ch/ Ch/ Cb/ Ch 
ATN A SHFTT A SHFTT A SHFTT A  SHIFTT 193/193/193/193 61/ c1/ Cl/ Cl 
AUTO A SHIFTU keine A SHIFTU keine 220/---/220/--- DC/ --/ DE/ -- 
BACKUP BA SHIFTG B SHIFTA B  SHIFTA keine 246/218/245/--- Fb/ D2/ Fhl -- 
BANK B SHIFT A keine keine keine 254 02 /---/---/--- FE 02/ --/ --/ 
BEGIN SHIFT E keine keine keine 254 24 Ion ou FE 1B/ --/ --[ 
BEND BE SHIFT N keine keine keine 234 25 /---/---/--- FE 19 --/ 1 - 
BLOAD B SHIFTL keine keine keine 254 17 /---I-- [un FE HI --/ --1 - 
BOOT B  SHIFTO keine keine keine 254 27 I=-- [= /-- FE 1B/ --/ --1 
BOX keine keine B SHIFTO keine 225/---/225/--- Ei/ -- E/- 
BSAVE B SHIFTS keine keine keine 254 16 I--- Jan [u FE 1 --/ 1 - 
BUNP B SHIFTU keine keine keine 206 03 /---/un jun CE BU --/ 1 
CATALOG CE SIFTA GC SHIFTA keine keine 254 12 /215/---/--- FE 20/ D7/ --/ -- 
CHAR CH SHIFTA keine CH SHIFTA keine 224 /--- [224 /--- Ed/ --/ EV -- 
CHR$ CE SHFTH EC  SHIFTH SHFTH C  SHIFTH 199/199/199/199 [7/ E71 C7/ 07 
CIRCLE C  SHIFTI keine EC SHIFTI keine 226/---/226/--- E2/ --/ EU — 
CLOSE CL SHIFTO CL SHIFTTOQ CL SHIFTO CL  SHIFTO 160/160/160/158 AB/ AB/ AB/ AR 
CLR CE SHrTL Co SHFTL CC SHFTL EC SHIFTL 156/156/156/156 9C/ 96/ 96/ 
CHD CE SHFfTM CO SHFTM CC SHFTM 6 SHIFTM 157/157/1577/157 90/7 907 9D/ M 
COLLECT COLL SHIFTE COL SHIFTL COL SHIFTL keine 243/289/243/--- F3/ DI/ FJ/ -- 
COLLISIDN 60 -SHIFTL keine keine keine 254. 23 /---/-=[--- FE ATI I | 
COLOR COL SHIFT O keine CO SHIFTL keine 231/---/231/--- ET/ --/ EI -- 
EONCAT . 6 SHIFTO CON SHIFTC keine keine 254 19 /204/---/--- FE 13/ C0/ --/ - 
CONT keine ce SHFTO C SHIFTO C  SHIFTO 154/154/154/154 aA/ 9A/ 9A/ IA 
copy CO SHIFTTP CO SHIFT P keine keine 244/211/---/--- FA/ DIY/ --/ -- 
c08 keine keine keine keine 198/198/198/198 BE/ BE/ BE/ BE 
DATA D SHFTA D SHFTA DB SHIFTA D  SHIFTA 131/131/131/131 B3/ 83/ 83/ 83 
DELEAR DEL SHIFT E keine keine keine 254 21 /=--/-un/--- FE 15/ --/ --] - 
DCLOSE D SHFTC D  SHIFTE keine keine 254 15 /286/---/--- FE BF/ CE/ --/ -- 
DEC keine keine D  SHIFTG keine 289/---/209/--- Di/ --/ Di/ -- 
DEF D SITE D SHFTE D SHFTE D  SHIFTE 158/150/150/150 96/ 9 9%/ % 
DELETE DE SHIFTL keine DE SHIFTL keine 247/---/2471/--- FTI --I FI -- 
DIM keine D SHFTI D SHIFTI D SHIFTI 134/134/134/134 86/ 96/ 86/ 86 
DIRECTORY DI SHIFTR DI SHIFTR D  SHIFTR keine 238/218/238/--- EE/ DA/ EE/ -- 
DLOAD D SHFTL D SHIFTL D  SHIFTL keine 240/214/248/--- FR/ D6/ FO/ -- 
D0 keine keine keine keine 233/---/235/--- EB/ --/ EB/ -- 
DOPEN D- SHFTTO D  SHIFTO keine keine 254 13 /205/---/--- FE 8D/ CD/ --/ - 
DRAW D SHIFTR keine D  SHIFTR keine 229/---1229/--- EV --/ E5/ 
D8 keine keine keine keine 68 83 44 53 

DS$ keine keine keine keine 68 83 36 44 53 24 

DSAVE D SHFTS D SHFTS D  SHIFTS keine 239/213/239/--- EF/ D5/ EF/ -- 
DVERIFY D  SHIFTV keine keine keine 254 28 /=---/---/--- FE 14/ --/ --/ -- 
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u ET 


EL 

ELSE 

END 
ENVELOPE 


SHIFT N 
keine 
keine 
keine 
SHIFT X 


E 


SHIFT N 
keine 
keine 
keine 
keine 
SHIFT X 


E 


- SHIFTN E 


keine 

keine 

SHIFT R 
keine 
SHIFTX E 


SHIFT N 
keine 


254 


69 76 

213/---/213/--- 
128/128/128/128 
I N fe 
69 82 

211/==-/21/--- 
237/---/ 237 /--- 
189/189/189/189 


FE 


45 4C 

05/ --/ D3/ -- 
80/ 80/ 80/ 88 
BA/ --/ --/ -- 


FN 


SHIFT A 
SHIFT E 
SHIFT I 
keine 

SHIFT Q 
SHIFT R 


03 I---/---1--- 
165/165/165/165 
129/129/129/129 
184/184/184/184 


03/ --/ --1 -- 
A5/ AS/ A5/ AS 
81/ 817 81/ 81 
B8/ BB/ BB/ BB 


nn nn nn an m 


6SHAPE 


SHIFT E 
SHIFT E# 


GETK SHIFT E 


keine 
keine 
SHIFT 5 
SHIFT OD 
SHIFT R 
SHIFT S 


SHIFT E 
SHIFT E# 
keine 
keine 


SHIFTTE 6 
SHIFT E# 6 
SHIFT E 
keine 

keine 
SHIFTS 60 
SHIFTO 6 
SHIFT R 
SHIFT S 


SHIFT E 
SHIFT E# 
keine 
keine 
keine 
SHIFT S 
SHIFT O 
keine 


161/161/161/161 
161 35 / 


161 249/-/161 249/- 


203/203/203/283 
203 54 52/-/-/- 
141 /141/141/141 


1377137/137/137. 


222/---/222/--- 
22-22 


AY A AN/ AL 
Al 23 

Al F/-/AL F9/- 
CB/ CB/ CB/ CB 
EB 36 34/-/-/- 
8D/ 8D/ 8D/ AD 
89/ 89/ 89/99 
DE/ DE/ DE/ DE 
E3/ --/ EY/ -- 


nn nn mm nn nm mn munnmmunm um 


SHIFT A 
SHIFT L 
SHIFT E 


SHIFT A 
keine 
SHIFT E 


241/208/241/--- 
234/---/234/--- 
218/---/210/--- 


Fl/ DV Fi} 
EA/ --/ ER/ -- 
D2/ --/ D2U/ -- 


||| nun anemmnenmmunnnaununnmarmembunne 


keine 


N 


SHIFTN I 
SHIFT S 
keine 


139/139/139/139 
133/133/133/133 
132/132/132/132 
212/---/212/--- 
181/181/181/181 


8B/ 8B/ 8B/ 8B 
85/ 85/ 85/ 85 
84/ 84/ 84/ 84 
D4/ --/ D4/ -- 
B5/ B5/ B5/ 85 


mn nn nn m an mn a sn m nn Tun nm FF nn 


NL ENDET DO DaD Dad Dur DD nr pp Dr rgpr Dre N Nr Nr er Tr 2 2 7 2 1 2 1 I 2 1 1 11 2 1 1 1 1 1 2 22 


| | nnnenmmmemmnemmannennennnnnnunnn 


MID$ 


SHIFT F 
keine 

SHIFT E 
SHIFT I 
SHIFT.O 
SHIFT C 
keine 

SHIFT 0 


SHIFT I 
SHIFT N 
SHIFT OD 


keine 
SHIFT E 
SHIFT DO 


SHIFT F 
keine 

SHIFT E 
SHIFT I 
SHIFT O 


keine 


SHIFT E 


SHIFTF LE 
keine 
SHIFTE L 
SHIFTI L 
SHIFTO L 
SHIFTC 
keine 

SHIFT O 


SHIFTI M 
SHIFT O 
keine 


keine 
SHIFTE N 
SHIFTO N 


SHIFT F 
keine 

SHIFT E 
SHIFT I 
SHIFT O 


200/208/208/288 
1957/195/195/195 
136/136/136/136 
155/155/155/155 


- 147/147/147/147 


230/---/230/--- 
188/188/188/188 
236/---/236/--- 


CB/ C8/ C8/ C8 
63/ 03/7 03/7 03 
88/ 88/ 88/ 88 
98/ 98/ 98/ 98 
9 
Eb/ --/ Eb/ -- 
BC/ BC/ BC/ BC 
ech f EB > 


.uu..n...................— 


202/202/202/202 
250/---/250/250 
Bb I---1---1--- 


162/162/162/162 
138/138/130/130 
168/168/168/168 


CA/ CA/ CA/ CA 
FA/ =-/ FA 


FE Bb/ --/ --/ -- 


h2/ A2/ AU R2 
B2/ 82/ 82/ 82 
AB/ AB/ AB/ AB 


mn Sn nn nenne nemnnn nenn 


keine 


254 


36 I---I--1--- 


FE24/ --/ 1 #) 
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ON keine keine keine keine 145/145/145/145 hr 
OPEN 0 SHIFTP Oo SHFTP 0 SHIFTTP O0 SHIFT P 159/159/159/159 9F/ 9F/ 9F/ IF 
OR keine keine keine keine 176 176/176/176 Ba/ BB/ BR/ BR 
PAINT P  SHIFTA keine F  SHIFTA keine 2231---1223/--- DF/ --/ DF/ — 
PEEK PE SHFTE P SHFTE P SHFTE P  SHIFTE 194/194/194/194 62/ 62/07 02 
PEN P  SHIFTE keine keine keine 206 B4 /=--/---/--- CE 84/ --/ --/ -- 
PLAY P SHIFTL keine keine keine 254.04 /---/---/--- FE B4/ --/ --I - 
POINTER PO  SHIFT I keine keine keine 286 IB /---/---/--- CE OA/ --/ --/ -- 
POKE PO SHIFTK PO SHIFTO P SHFTO P SHIFTO 151/151/151/151 971 911 97 97 
Füst keine keine keine keine 185/185/1857/185 B9/ B9/ B9/ 59 
POT P  SHIFTO keine keine keine 206 82 /---/---/--- CE 92/ --/ --1 — 
PRINT ? ? ? ? 153/153/153/153 999 99 
PRINT# P SHIFTTR P SHIFTR P_ SHFTR P SHIFTR 152/152/152/152 98/ 98/ 98/ 98 
PRINT USING ?US SHIFT I keine us SHIFT I keine 153 251/-/153 251/- 99 FB/-/99 FB/- 
FUDEF P  SHIFTU keine P  SHIFTU keine 221/---/221/--- DD/ --/ DD/ -- 
QuIT keine keine keine keine 254 30 /---/---/--- FE 1E/ --/ --/ -- 
RELR (n) R  SHIFTGC keine R  SHIFTC keine 205/---/205/--- 6D/ --/ CDd/ -- 
RDOT (n) R  SHIFTD keine R  SHIFTD keine 208/---/208/--- D9/ --/ DV -- 
READ RE SHIFTTAR DO SHITE R SHIFTE R  SHIFTE 135/135/135/135 87/ 87/ 87/ 87 
RECORD R SHIFTE RE SHIFTEC keine keine 254 18 /207/---/--- FE 12/ CF/ --/ -- 
REM keine keine keine keine 143/143/143/143 8r/ 8F/ 8F/ 8F 
RENAME RE SHIFTN RE SHIFTN RE  SHIFTN keine 245/216/245/--- FS/ DB/ Fi/ -- 
RENUMBER REN SHIFT U keine REN SHIFT U keine 248/---/248/--- FB/ --/ Fö/ -- 
RESTORE RE SHIFTS RE SHIFTS RE SHIFTTS RE SHIFTS 148/140/140/148 8C/ 8C/ 86/ 8C 
RESUME RES SHIFT U keine RES SHIFT U keine 214/---/214/--- Ds/ --/ Dh -- 
RETURN RE SHIFTT RE SHIFTT RE SHIFTT RE SHIFTT 142/1427142/142 8E/ BE/ SE/ BE 
RGR R  SHIFTG keine RR SHIFTG keine 284/---/204/--- CE/ --/ CU 
RIGHTS RO SHIFTI RO SHFTI RO SHIFTI R  SHIFTI 201/201/281/201 69/ 09/ 19/ C9 
RLUM keine keine R  SHIFTL keine --/---/206/--- -/ -/0E/ - 
RND R SHFTTN RO SHFTN R SHFTN R  SHIFTN 187/187/187/187 BB/ BB/ BB/ BR 
RREG R  SHIFTR keine keine keine 254 89 /=--/--/- FE 09/ --/ --/ 
RSPEOLOR RSF SHIFTC keine keine keine 286 87 /---/---/--- CE TI --I --I1 
RSPPOS R  SHIFTS keine keine keine 206 BI /---/n/-—- CE B5/ --/ --/ -- 
RSPRITE RSP SHIFT R keine keine keine 206 Bb ---/---/--- CE 86/ --/ --/ -- 
RUN OR HIFTU R SHIFTU R SHIFTU RR  SHIFT U 138/138/138/138 BA/ BA/ BA/ BA 
RWINDOW R  SHIFTW keine keine keine 286 89 /---/---/--- CE B6/ --/ --/ -- 
SAVE SC HIFTA 5 SHFTA 5 SHFTA 5  SHIFTA 148/148/148/14B 94/ 947 94/ 94 
SCALE SC SHIFTA keine St  SHIFTA keine 233/---/233/--- : EU I EI 
SCNELR $ 8HIFTG keine $ SHIFTC keine 232/---/232/--- EB/ --/ EB/ - 
SCRATCH SC SHIFTR 56 SHIFTTR SC SHIFTR keine 242/217/242/--- F2/ D9/ F2/ -- 
SGN Ss HIFTG 5 SHIFTG 5  SHIFTG keine 180/180/188/188 BA/ BA/ B4/ BA 
SIN Ss SHIrTI SS SHFTI 5 SHFTI 8 SHIFTI 11mm BF/ BF/ BF/ BF 
SLEEP 5 SHIFTL keine keine keine 254 11 /m-n/ou jo FE OB/ --/ --/ - 
SLOW SL SHIFTO keine keine keine 254 38 /---/un/ FE 26/ --/ --/ - 
SOUND 5  SHIFTO keine 8 SHIFTO keine 218/---/218/=--- DA/ --/ DA/ -- 
PCI keine S SHFTP 5  SHIFTP keine 166/166/ 166/166 Ab/ Ab/ Ab/ Ab 
SPREOLOR SPR SHIFT C keine keine keine 254.08 /---/n/--- FE BB/ --/ --/ -- 
SPRDEF SPR SHIFT D keine keine keine 254 29 I---/--/-- FE iD/ --/ --/ 
SPRITE $ »SHIFT P keine keine keine 254 07 /---/---/--- FE 07/ --/ --1 - 
SPRSAV SPR SHIFT S keine keine keine 254 22 Im Jun FE Ib/ --/ --] 
Sar $S SHFTO 5S SHIFTO 8 SHIFTQ keine 186/186/186/18& BA/ BA/ BA/ BA 
SSHAPE $  SHIFTS keine $  SHIFTS keine 228/---/228/--- E4/ --/ Eil -- 
ST keine keine keine keine 83 84 53 54 

STASH 5 SHIFTT keine keine keine 254 31 /-/muu jun FE IF/ --/ -- 1 - 


124 
TLLL—ä—eeeeeeeeeeeeeeeeeeääuu hl 


TIPS & TRICKS | 


STE ST SHIFTE ST SHIFTE 8ST SHIFTE 58T SHIFTE 169/169/169/169 ABI A9I Ag 9 
5ToP ST 5HIFtOo ST SHIFTO 58T SHIFTO  5ST SHIFTO 144/144/144/144 9a/ 98/ 90/98 
STR$ ST SHFTR ST SHIFTR 85T SHIFTR ST SHIFTR 196/196/196/19& 64/ C4/ Cal ca 
SWAP 5 SHIFT 4 keine keine keine 24 3 Fehl FE 23/ --/ --1 - 
v5 | 5 SHIETYS SHIFTTY 5 SKHIFTY 5 SHIFT Y 158/158/158/158 "9E/ 9E/ 9E/ GE 
TAB( T SHIFrTAT O SHFTA T SHIFTA T  SHIFTA 163/183/163/163 A3/ A3/ A3/ A3 
TAN keine keine keine keine 192/192/192/192 ca/ CB/ C8/ Ca 
TEMPO T SHIFTE keine keine keine 254 85 /--- Jun lu FEDS// - 1 
THEN T SHIFTHT SHETH T 0 SHIFTH- T  SHIFTH 167/167/167/167 ATI ATI ATI AT 
TI keine keine keine keine 8473. 54 49 

TI$ keine keine keine keine 84 73 36 54 49 24 

TRAP T SHIFTR keine T  SHIFTR keine 214/---/214/--- D&/ --/ D6/ -- 
TROFF TRD SHIFT F keine TRO SHIFT F keine 217/---/217/--- D9/ --/ DU -- 
TRON TR SHIFTO keine TR SHIFT O keine 216/---/216/--- D8/ --/ D8/ -- 
T0 keine keine keine keine 164/164/164/164 Ad/ --/ Adl -- 
UNTIL U SHIFTN keine UV SHIFTN keine 252/---1252/--- FÜ/ --/ FÜ -- 
USING Aus SHIFT I keine aus SHIFT I keine 251/---/251/--- FB/ --/ FB/ 
USR Vo SHrTSsSUuU SHFTS U SHFTS U SHIFTS 183/183/183/183 B7/ B7/ B7/ 87 
VAL VSHFTA VO SHFTA 4 SHFTA 4 SHIFTA 197/197/197/197 65/ 05/ 65/ 65 
VERIFY VSHFTE V SHFTE 4 SHIFTE 4 SHIFTE 149/7149/7149/149 9/95 5/95 
yalL V SKIFTO keine vVSHIFTO keine 219/---/219/--- DB/ --/ DB/ -- 
WAIT WOSHFTAH O SHFTA Wo SHFTA MW  SHIFTA 146/146/146/146 92 92 92V 92 
WHILE W SHIFTH keine WSHIFTH keine 233/---1253/--- Fd/ --/ FD/ 
WIDTH WI SHIFT D keine keine keine 254 28 Il /-- FE IC/ --/ --1 - 
WINDOW W SHIFTI keine keine keine 254 26 /---/---/--- FE 1A/ --/ --/ - 
KOR X SHIFT O keine keine keine 2064 88 /---/---/--- CE BB/ --/ --1 
+ + + + + 178/178/178 AA/ AR/ AR/ AA 
. - = = - 1717/1717171 AB/ AB/ AB/ AB 
+ + * # + 172/172/172 AC/ AC/ AC/ AC 
/ / / fi / 173/173/173 AD/ AD/ AD/ AD 
» © ” * 174/174/174 AE/ AE/ AE/ AE 
’ ’ > ’ ’ 17711771177 Bi/ Bi/ Bi/ Bi 
= = = = = 178/178/178 B2/ B2/ B2/ B2 
4 { Ä Ä g 179/179/179 B3/ B3/ B3/ B3 
Tabelle 2: 


nn nn | | nm nun 


BASIC-Schlüsselwörtern und deren TOKEN und VORTOKEN in Dezimal und Hexadezimal 
bei Commodore Computern CBMADB/CBMTOB/CEM2B0R/CHM3ADD/CRMAAOD/CRMBB32/VC2W/C64/C16/C11A/Plus4/128PC 
5 = 064 + SIMON'S BASIC - EL/ER/EZ = Computer + EXBASIC LEVEL II - EXP = [64 + Expander-Modul 


en nenn nennen. 


CBM 2,0 j CBM 2.0 

vc2B VC-28 Ei 

[64 (64  E2C645 Ch4+Exp 
CBM 4.0 CRM 4,0 CBM 4,063 


CbM 600 CRM 600 CBM 668 

CBM 700 CBM 700 CEM 780 

Ci6/PA C16/P4 

128PC 128PC 128PC 
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di 8 = = = z — OFF Z S 
02 22 - = “ = _ RENUM - = 
03 83 > et . = — FIND > - 
D4 04 * - - “ 2 DEL - - 
85 05 gi - = . - AUTO 2 - 
B6 & = = s - = DUMP - = 
87 07 - = = = * VPLOT = = 
28 08 u = - = CALL = 2. 
LE) 2) - = he - - BORDER/REK- 12/3 - 
18 Ba _ ® S un « EXEC ® - 
11 &b 2 - = = E MERGE = = 
12 Bc - a ar = * HPLOT - = 
13 84 > u. - - - DOKE = = 
14 Be = - - “ - SPACE ” - 
15 Bf - u = u = INPUTLINE - 2 
I) 18 = Z 5 = = SET = = 
17 il - = ® = > KEY/INSTLINE 12/3 - 
18 12 z ” * “ = CURSOR/DELLINE 12/3 - 
19 13 - r - ” - ADSR/BEGINLINE 12/3 - 
28 14 - - - - - PAUSE/ENDLINE 12/3 - 
21 15 zZ iz - “ . PLAY/UP - 12/3 - 
22 16 = = - - Eu VOLUME/DONN 12/3 - 
1Ba-Bi 64-1 = > — ® = 5 HIRES = 
186-082 64-82 - = ; = ” - PLOT - 
100-083 64-83 - - . - - - LINE - 
1800-84 64-84 . = - = = = BLOCK - 
100-085 64-085 ® ® = = “ = FCHR = 
108-065 64-06 > z — - = z FCOL - 
100-097 54-07 - = “ * * > FILL u 
100-898 64-08 - = . - ” n REC - 
100-099 64-89 = = - = ® = ROT - 
180-108 64-Ba - = ® “ = = DRAN = 
1800-11 64-0b - - = - = - CHAR - 
1809-13 64-8d - - = - - - INV . 
1080-14 64-Be e = - ö = - FRAC - 
1080-15 64-8 3 = * = ® - MOVE = 
iB0-16 64-18 ‘ = ® ” = “ PLACE 5 
1008-25 64-19 = ® = z = = MULTI ® 
1889-27 64-1h - “ ” - = > MMOB ® 
1080-28 64-ic u . ” = - = BFLASH  - 
100-297 64-1d = — = = = - MOB SET - 
100-308 64-1e = = - - . - MUSIC - 
1800-31 64-1f S ne - = - = FLASH = 
1080-32 64-28 = - » “ m . REPEHT  - 
100-335 64-21 - = - = - ® PLAY - 
180-355 64-23 pa - ° “ . “ CENTRE - 
108-356 64-24 “ « = be * u ENVELOPE - 
188-377 64-25 = = = - - = CG0TO - 
100-538 64-26 - - = - - = WAVE " 
1080-39 64-27 . - = . . = FETCH e 
100-441 64-29. - - ® ” = - UNTIL - 
1080-44 64-2c = - ” - = = USE = 
1080-48 54-38 n - - . = ni RESET = 
1800-49 64-31 - = - = = ir PROC - 
1080-50 64-32 = * = - = ng CALL = 
1800-51 64-33 s = ® = - = EXEC # 
1800-52 64-34 > > = ® = - END PROC - 


TIPS & TRICKS 


1008-54 64-36 - - - - - - END - 
in0-58  &4-Ja - - z - - - LOOP - 
1800-59 64-3b - - - - - - DELAY - 
100-644 64-40 - - - - - - SECRE - 
1080-65 64-41 - a = - - - DISAPPA:SE: 
1Bd-66 64-42 = = = = = - CIRCLE - 
100-647 44-43 - - - - - - ON ERROR - 
10-58 64-44 - - - - - - NO ERRÜR - 
1080-69 64-45 - - - - - - LOCAL = 
1090-70 64-46 - - - - - - RCOMP - 
1880-71 64-47 - - - - - - ELSE - 
1880-72 64-48 - - - -_. - - RETRACE - 
1080-73 64-49 - - - - - - TRACE - 
100-754 &4-4a - - - - - - DIR - 
1088-75 64-4b - - - - - - PAGE - 
1080-76 64-4c - - - = - - DUMP - 
1880-77 &4-4d - - - - - - FIND - 
1080-78 64-40 z - - = = - OPTION = 
1009-79 64-4 - - - - - - AUTO = 
100-808 44-50 - - - - - - OLD - 
1900-81 64-51 = - - - - - JoY - 
100-822 44-52 - - - - - - MOD - 
100-835 64-53 - - - - - - DIV - 
100-855 64-55 - - - - - - DUP - 
100-897 &4-57 - - - - - - INST - 
1200-88 64-58 - - - - - - TEST - 
180-899 64-59 - - - - - - LIN - 
108-908 64-5a - - - - - - EXOR - 
100-911 64-5b - - = - - - INSERT  - 
1900-92  64-5c = - - = - - POT = 
100-9353 &4-5d - - - - - - PENK - 
1080-95 &4-5# - - - - - - PENY - 
100-798 64-62 - - - - - - DESIEN - 
1080-99 64-63 - - - - - - RLOCMOIB - 
108-100 54-44 - - - - - - cMOB - 
100-104 64-68 - - - - - - MOB OFF - 
100-185 64-69 - ” = - - OFF = 
100-106 54-ba - - - - - - ANGL - 
188-187 &4-6b - - - “ - - ARC = 
100-108 d4-&c - - - - - - COLD - 
100-109 &4-6d - ” - - - - SCRSV - 
108-118 &4-be - - - - - - SCRLD - 
100-111 64-6f - - - - - - TEXT - 
108-112 64-78 - - - - - - CSET - 
100-113 44-71 - - - - - - VOL - 
100-114 64-72 - - - - - - DISK - 
108-116 64-74 - - - - - - KEY - 
108-117 64-75 - - - - - - PAINT - 
100-118 64-76 - - - - - - LOW COL - 
108-119 64-77 - -.. - - - - COPY - 
180-128 64-78 > ® 5 a - - MERGE & 
109-121 64-79 - - - - - - RENUMBER - 
100-122 &4-7a - - - - - - MEM - 
100-123 54-76 - - - = - = DETECT - 
100-124 &4-7c - = - - - - CHECK - 
100-125 64-7d - - - - - - DISPLAY - 
180-1265 64-Te 64 59 = = - - » ERRLN = 
108-126 &4-7e 4e - = 2 - - . EN - ’ı) 
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108-127 64-74 - - - = - - QuT - 

128 80 END END END END END END END END 
129 8 FOR FOR FÜR FOR FOR FOR FOR FOR 
130 82 NEXT NEXT NEXT NEXT NEXT NEXT NEXT NEXT 
131 83 DATA DATA DATA DATA DATA DATA DATA DATA 
132 84 INPUT INPUT INPUT  INPUTE  INPUTE INPUT INPUT  INPUT# 
133 85 INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT 
134 8 DIM DIM DIM DIM DIM DIM DIM DIM 
135 87 READ READ READ READ READ READ READ READ 
136 88 LET LET LET LET LET LET LET LET 
137 89 60T 6aTo 60T 60TO 60T0 60TO 60T0 60T 
138 Ba RUN RUN RUN RUN RUN RUN RUN RUN 
139 8b IF IF IF IF IF IF IF IF 
140 Bc RESTORE RESTORE RESTORE ARESTORE RESTORE RESTORE RESTORE RESTORE 
14 8d GO5SUB GOSUB GOSUB G0SUB GOSUB GOSUB 60SUB GaSUB 
142 Be RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN 
143 Bf REM REM REM REM REM REM REM REM 
144 u) STor STOP sTor stop Stop STor STOr STor 
145 A ON ON ON ON ON ON ON ON 
146 92 KAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT 
147 93 LOAD LOAD LOAD LOAD LOAD LOAD LOAD LOAD 
148 9 SAVE SAVE SAVE SAVE SAVE SAVE SAVE SAVE 
149 95 VERIFY_ VERIFY  VERIFY  VERIFY  VERIFY  VERIFY  VERIFY  VERIFY 
150 % DEF DEF DEF DEF DEF DEF DEF DEF 
151 97 POKE POKE POKE POKE POKE POKE POKE FOKE 
152 98 PRINTE PRINT PRINT  PRINTR PRINTK PRINT PRINTE  PRINT# 
153 2) PRINT PRINT PRINT PRINT PRINT PRINT PRINT PRINT 
154 9a £ONT CONT CONT EONT EONT CONT EONT CONT 
155 9 LIST LIST LIST LIST LIST LIST LIST LIST 
156 % CLR , ELR ELR ELR CLR ELR ELR ELR 
157 94 cmD cHD cHD MD cHD cMD CHD CHD 
158 9e ER) SYS SY5 SYS SYS sY5 SYS Sys 
159 % OPEN OPEN OPEN OPEN OPEN OPEN OPEN OPEN 
160 ad CLOSE ELOSE CLOSE CLOSE CLOSE CLOSE CLOSE CLOSE 
l6t al GET BET GET GET GET GET GET GET 
162 a2 NEW NEW NEW NEW NEW NEW NEW NEN 
163 a3 TAB! TAB( TAB( TAB( TABL TAB( TAB( TAB( 
164 ad TO T0 10 TO TO T0 T0 TO 
165 a FN FN FN FN FN FN FN FN 
166 ab SPC( SPCL SPC( SPCI SPCL SPC( SPC SPE( 
167 a7 THEN THEN THEN THEN THEN THEN THEN THEN 
168 ad NOT NOT NOT NOT NOT NOT NOT NOT 
169 a9 STEP STEP STEP STEP STEP STEP STEP STEP 
178 aa + + + + + + + + 

in ab - - - - - - - - 

172 ac * + * % + Bi + * 

173 ad / / / / / / / / 

174 ae A A A A A A Aa A 

175 af AND AND AND AND AND AND AND AND 
176 bö OR OR OR OR OR OR OR OR 
177 bi > > ? > > > > 

178 b2 c} 2 5 = = E 2 z 

179 b3 N Ä { Ä { { < Ä 

188 b4 SGN SGN SGN SEN SEN SEN SGN SGN 
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181 b5 INT INT INT INT INT INT INT INT 
182 b& ABS ABS ABS ABS ABS ABS ABS ABS 
183 b7 USR USR USR USR USR USR USR USR 
184 b8 FRE FRE FRE FRE FRE FRE FRE FRE 
185 b9 POS POS POS POS POS poS POS POS 
186 ba SÜR SaR SÄR SER SoR sar SoR SOR 
187 bb RND RND RND RND RND RND RND RND 
188 be L06 LOG LOS LOG LOS LOG LOG LOS 
189 bd EXF EXP EXP EXP EXP EXP EXP EXP 
198 be 608 605 608 608 605 c08 Kr 608 
191 bf SIN SIN SIN SIN SIN SIN SIN SIN 
192 cd TAN TAN TAN TAN TAN TAN TAN TAN 
193 ei ATN ATN ATN ATN ATN ATN ATN ATN 
194 e2 PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK 
195 c3 LEN LEN LEN LEN LEN LEN LEN LEN 
196 c4 STR STR STR STR STR STR STR STR 
197 c5 VAL VAL VAL VAL VAL VAL VAL VAL 
198 [d.) ASC ASC ASC ASC ASC ASC ASC ASC 
199 c7 CHR$ CHR$ CHR$ CHR$ CHR$ CHR$ CHR$ CHR$ 
208 ch LEFT$ LEFT$ LEFT$ LEFTS LEFT$ LEFT$ LEFT$ LEFT$ 
281 c9 RIGHTS RIEHTS RIEHTS RIGHTS RIGHTS RIGHTS RIGHTS RIGHTS 
202 ca MID$ MID$ MID$ MID$ MID$ MID$ MID$ MID$ 
203 ch 60 60 60 60 60 60 60 60 
204 cc - CONCAT CONCAT RER RGR CONcAT 3 - = 
205 cd - DOPEN DOPEN RELR RELR DOPEN 3 - - 
206 ce = DELOSE DELOSE  RLUM - DLLOSE 3 - - 
2065-02 ce-B2 = - z - POT - - e 
206-083 ce-B3 - - = z BUMP - - u 
206-894 ce-D4 - - - - PEN - “ z 
206-085 ce-85 - - - - RSPPOS  - nu = 
20-05 ce-d6 - - - - RSPRITE - - - 
206-097 ce-07 - - - - RSPCOLOR - - = 
2064-88 ce-B8 - = - - XOR u = = 
286-099 ce-09 - - - - RHINDOH - = - 
206-108 ce-Ba - - - - POINTER - - — 
207 cf - RECORD RECORD JOY ‚Joy RECORD 3 - - 
208 da - HEADER HEADER RDOT RDOT HEADER 3 - = 
209 di - COLLEECT COLLECT DEE DEC COLLECT 3 - “ 
218 d2 - BACKUP BACKUP HEX$ HEXS$ BACKUP 3 - = 
24 d3 - corY COPY ERRS ERR$ cf 3- - 
212 d4 - APPEND  APFEND INSTR INSTR APPEND 3 - - 
213 ds - DSAVE DSAVE ELSE ELSE DSAVE 3- = 
214 db - DLOAD DLOAD RESUME RESUME DLOAMD 3- - 
215 d7 - CATALOG CATALOG TRAP TRAP CATALOG 3 - = 
216 dd zn RENAME RENAME  TRON TRON RENAME 3 - = 
217 49 = SCRATCH SCRATCH TROFF TROFF SCRATCH 3 - - 
218 da = DIRECTORY DIRECTORY SOUND SOUND DIR g= “ 
219 db & = “ DELEAR VOL voL a = * 
220 de - = BANK AUTO AUTO RESET - z 
22 dd - - BLOAD PUDEF PUDEF MEM - “= 
222 de - - BSAVE GRAPHIC GRAPHIC TRACE ” - 
223 d - . KEY PAINT PAINT BASIC = = 
224 eB s 2 DELETE CHAR CHAR RESUME = 2 
225 ei - 5 ELSE BOX BOX LETTER - = 
226 e2 - = TRAF CIRCLE  CIRCLE HELP = - 
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227 83 - = RESUME GSHAPE GSHAPE COKE/BEEP 12/3 - 
228 e4 2 ” DISPOSE SSHAPE SSHAPE GROUND/FAST 12/3 - 
229 ER = : PUDEF DRAH DRAW MATRIX - = 
258 eb = - USING LOCATE LOCATE DISPOIS - “ 
231 e7 - ® ERR$ COLOR COLOR PRINT@ - “ 
232 ed = - INSTR SCNELR  SCNELR  HIMEN ” * 
233 e9 = s = SCALE SCALE HARDEOPY - = 
234 ea - - - HELP HELP INPUTFORN - = 
235 eb = = = 00 DO LOCK/MOD/SCREEN 12/3- 
236 ec Z = 5 LOOP LOOP SWAP = - 
237 ed - = 5 EXIT EXIT USING S - 
238 ee = r = DIRECTORY DIRECTORY SEC = = 
239 ef = = = DSAVE DSAVE ELSE = = 
240 #8 = 5 = DLOAD DLOAD ERROR - = 
241 fl ® - = HEADER HEADER ROUND = = 
242 t2 z 3 = SCRATCH SCRATCH DEEK - # 
243 #3 * = ” COLLECT COLLECT STRINGE - - 
244 +4 = = z copY COPY POINT “ 5 
245 #5 - - = RENAME RENAME INSTR u = 
246 #6 = = = BACKUP BACKUP  CEEK/RND 12/3 - 
247 #7 = # ® DELETE DELETE MIN = - 
248 #8 = * # RENUMBER RENUMBER MAX = = 
249 #9 - - ” KEY KEY VARPTR - 
250 ta - - . MONITOR MONITOR FRAC i - 
251 tb 2 s = USING USING 0DD = = 
232 fc = = = UNTIL UNTIL DEC - = 
253 td = = = WHILE WHILE HEX$ - — 
254 te = = = E F EVAL = = 
254-092 fe-B2 - - - - BANK " - - 
254-093 fe-83 es “ 2 “ FILTER  - 2 5 
2354-04 fe-B4 - = = - PLAY “ - - 
254-085 fe-85 = ® ® = TEMPO = = = 
254-806 fe-6 = = = = MOVSPR = Z = 
254-077  fe-87 - = - = SPRITE - = = 
254-088 fe-08 m - = - SPREOLOR - = - 
2534-89 fe-09 2 - 2 - RREG = - = 
254-108 fe-Ba = + = = ENVELOPE - = = 
2354-11 fe-0b = ® = = SLEEP = = ” 
2354-12 fe - - = = CATALOG - " 5 
254-135 fe-Bd “ = - - DOPEN u 2 = 
2354-14 fe-de = # ® = APPEND - = = 
2354-15 fe-0f - = = = DELOSE,  - = = 
254-156 fe-iü ” - - - BSAVE “ = - 
2534-17 fe-ll z = = ei BLOAD - n zn 
2534-18 fe-12 z 5 - - RECORD  - = “ 
2354-19  fe-13 r - = = CONCAT - = = 
254-208 fe-14 . - z - DVERIFY  - = = 
254-21  fe-15 = = = = DELEAR = = 
2354-22 fe-ib - - = = - SPRSAVE - = - 
254-23  #e-17 = = m en COLLISION - = z 
254-24  fe-18 = u B = BEGIN - = - 
254-235 fe-19 = _ = = BEND - = - 
2534-26 fe-la “ i - - WINDOW  - “ - 
2534-27  #e-ib 3 5 2 = BOOT - = - 
254-28 fe-ic - % = - WIDTH - = = 
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254-29 fe-1d - = “ - SPRÜEFE - = - 
254-308 fe-ie - - = = QUIT © - = 
254-351 fe-if - - - - STASH = = # 
2534-32 te-20 = = = 5 u = = - 
254-33  fe-21 = - = - FETCH 2 “ - 
2354-34  fe-22 = n 2 z ® . = u 
2534-35 fe-23 F = - s SWAP - - . 
254-356 fa-24 = = - = OFF = n = 
254-537 te-25 = - - . FAST - - - 
254-358 fe-26 = = z - SLOW - — ” 
254-128 te-80 * = - - - - - KEY 
254-129 fe-8i = = = - - - - COLOR 
254-138 fe-B2 - - - - - - - GRAPHIC 
254-131 fe-83 = - - - - - - SCNELR 
254-132 fe-84 - - - - - - - LOCATE 
254-133 fe-B5 - - - - - - - SCALE 
254-134 fe-86 - - - - - - - BOX 
254-135 fe-87 - - - - - - - CIRCLE 
254-136 fe-88 = ei = - - - - CHAR 
254-137 fe-89 - - - - - - - DRAW 
254-138 fe-Ba — » - z - - - GSHAPE . 
254-139 fe-8b - ” - - - - - PAINT 
254-140 fe-8c - = - - - - - SSHAPE 
254-141 fe-8d - - = - - - - TUNE 
254-142 fe-Be = - - - - - - FILTER 
254-143 fe-8f - - - - - - - SPRDEF 
254-144 fe-90 - - - - - - - TEMPO 
254-145 fe-91 - - = - - - - MOVSPR 
254-146 fe-92 - - - - - - - SPRCOL 
254-147 fe-93 - = - = - - - SPRITE 
254-148 fe-94 = = - - - - - COLINT 
254-149 #e-95 = ” = - - - - SPRSAV 
254-150 fe-9% - - - - - - - RBUMP 
254-151 fe-97 - - - - - - - RCLR 
254-152 fe-98 - = - - - - - RDOT 
254-153 fe-99 = - - “ - - - RER 
254-154 fe-9a = “ - - - - - RJOY 
254-155 #e-9b - - - - - - - RPEN 
254-156 fe-9c - - - - - = - RPOT 
254-157 te-9d ie - u - - - = RSPCOL 
254-158 fe-Fe - - 2 “ “ “ - RSPPOS 
255 + pi pi pi pi pi pi pi pi 


Sauannzunmenununannnannmenunnnununnennnnnsnsununnnnnnnnnensnnnnnennsnnasnmnnunnnneeenennmenuenmansessnnmnemunenenmunne 


Die Rechner-Typen CBM 400 und CBM 708 wurden in den englischsprachigen Ländern, 
unter der Bezeichnung B128 und B256°angeboten und verfügen über eine größer, als BASIC 4.8 Version. 


SIMON’S BASIC UND EXPANDER von Commodore Business Machines, 
EXBASIC LEVEL II von Interface Age München, 
alle anderen -Versionen Commodore Büromaschinen Frankfurt 
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18 rem mensch aerg. dich nicht=c16 
28 rem (p) commodore-welt-team 

30 ram ========2===2=====22mmm0s2uu= 
AB rem (c) by h.meier 

58 rem 

68 rem 

78 rem basic v3.5 


80 rem 
98 rem 
188 dimf(99) ,figl4,4),FflA),s$lA), 
sf(4) ‚sieg(4) 

118 gosub3669:color 8,6,7:color4,6 
‚3:color1,6,3 

128 printchr$( 27) +"n":vol8 

138 restore149:fori=1to4:readsf(i) 
ınexti 

148 data 83,88,98,65 

158 data frieda *,karl-heinz*,h 
iltrud *,anton * 
160 gosub3398:sys1815 
178 char 1,5,11,"0":b$=zm$:gosub36 
58:print"P" 

188 char 1,5,12,zj$+d$+d$+d5$+d4$+ 
z6$ 

198 char 1,6,12,"mensch aergere di 
ch nicht !!!" 

288 char 1,5,13,"L":b$=ze$:gosub36 
5®:printzp$ 

218 q$="aus der haaner meierei” 
228 x1=1:x2=38:z=24:gosub2028 

238 fori=1t013:color4,6,int(i/2):c 
olor®,16-i,6 

248 colori,i,k:forj=1t021 

2590 get x$:ifx$<>""then33d 

268 ifi<2 or int( j/2)=j/2then288 
278 char 1,8,22,"irgendeine taste 
druecken"”:goto298 

280 ifi>2thenchar 1,8,22,d$+d$+d5$ 
298 gosub2848: for ji=1t019:nextj1 
388 nextj 

318 char 1,6,12,"mensch aergere di 


c16/116/plus4 


ch nicht I!!!" 

328 nexti 

338 color 8,6,7:color4,6,3:color1i, 
6,3 


348 ifi>2thenchar 1,8,22,d$+d$+d5$ 
358 char1,1,24,*"":fori=1t09:print: 
nexti:char1,1,4,"" 

368 print:print:printchr$( 27) +"t" 

378 print"spielregeln:":print 

388 print"aufgabe des spiels ist e 
s, alle figuren" 

398 print"vom ausgangsfeld in die 

zielfelder zu" 

488 print"wuerfeln. mit einer 6 we 
rden die figuren"” 

410 print”ins spiel gebracht. trif 
ft eine figur" 
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428 print"auf eine fremde, muss di 
ese wieder an” 

438 print"den anfang zurueck. die 

zielfelder"” 

448 print"muessen genau erreicht w 
erden.” 

458 print”sieger ist, wer als erst 
er alle figuren” 

468 print"in’s ziel gebracht hat.” 
:print:print"viel spass!” 

478 print:printd2$"bis zu 4 spiele 
r koennen mitmachen.” 

489 anz=4:printd2$"wenn weniger sp 
ielen sollen, anzahl" 

498 printd2$"angeben - sonst retur 
n"”; :inputanz 

588 ifanz>Tandanz<5then539 

518 print:printd2$"2, 3 oder 4, bi 


tte!!!":print:goto478 

528 rem ---------------------- 
530 rem auswahl der spieler 

548 rem -------------------------- 


558 color®,2,6:color1,1:printchr$f{ 
147) 

568 print"prima,";anz;"spielen mit 
!":58=9:restore 158 

578 s=int(rnd( ti)*4)+1:ifs<lors>4t 
hen5?® 

588 print"bitte namen der mitspiel 
er eingeben” 

598 print"oder return,dann ueberni 
mmt der " 

688 print"computer diese figur." 
E1B s$ls)="FrH8#" 

628 colori,s+t2,3:print"”mit "+chr$( 
sf{s)+32)+" spielt”; 

638 inputs$(s) 

648 ifs$(s)="***#"thenreads$(s) :go 
t0688 

658 iflen(s$({s))<11then68Q 

668 printd2$"bitte abkuerzen!"chr$ 
( 145) chr$( 145) 

678 goto628 


‚688 printchr$( 145) ;"mit ";chr$( sf( 


s)+32); 

698 print" spielt"d2$left$(s$(s),1 
B) 
788 
718 
7289 
738 


printd$d4$d4$chr$( 145) 
sa=s8+1:ifsß®=anzthen?758 
ifs@d=2thens=s-1 
s=st2:ifs>4thens=s-4A 

748 goto 618 

758 color1,1,3:print"kann es losge 
hen?” 

768 print"”dann bitte irgendeine ta 
ste druecken” 

778 fori=1t02808:get a$:ifa$<>""th 
en828 
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788 
798 
888 
818 rem 
828 q$="spiel beginnt":x1=26:x2=39 
:z=23:gosub2828 

838 print:print:color®,6,7:color4, 
6,3:gosub2188 

848 print:print:print:print "spiel 


rem 


verlauf" 

858 print"automatisch?"”:print"®=ne 
in" 

868 print" i=zwangszuege"”:print"2=a 
lle zuege" 

878 printd2$"ziffer"; :inputaut 

888 tn=@:input"mit ton =1";tn:fori 


=1t025:print:nexti 
890 rem 
988 rem naechster spieler 
918 rem 
928 Fori=1t0o4:4=3399-(i>1)*18-(i>2 
)*328+(i1=4) #180 

938 pokeg, 168:pokegq-1824,121:nexti 
948 q=B:fori=1to4 

958 iffig(s,i)<s*4+45 or fig(s,i)> 
68+s#4 then1978 

968 nexti:fori=1to4:ifsieg(i)>Bthe 
nnexti 

978 siegli)=s:fig(s,1)=-i 
988 print"gratuliere zum 
atz!” 

998 colori,s+t2,3:gosub2458:print:p 
rint 

18882 color1,1,3:ifi>anz-1ithen 1828 
1818 q=®:input”aufhoeren=1";q:ifno 
tgthen 1878 

1828 print"sieger:":fori=1t04 

1838 ifsieg(i)=®then1068 

1848 printi;:colori,sieg(i)+2,3 
1858 printleft$(s$(sieg(i)),1®) 
1868 color1,1,3:nexti:stop:run 
1878 s=s+ti:ifs=5thens=1 

10880 iffig(s,1i)<d or len(s$(s))<It 
hen 1878 

1898 wu=o:gosub2598 

1188 rem 
1112 rem 
1128 rem 
1138 wuswu+1:ifw=6then 1378 

1148 fori=1to4:ff(i)=®:nexti 

1158 fs=®:fe=d:fori=1to4:q=B 

1168 iffig(s,i)>64thenfe=fe+1l:goto 
1288 
1178 
1188 


dl 


positionen errechnen 


q-1:ffli)=fig(s,i)tw 

ifs=i and ff(i) >52then1278 
1198 iffig(s,i)<s*4+45then1228 
12088 ifffli)<s*4+49then 1268 
1218 goto1278 


<ik> 
<io> 
<nl> 
<jl> 
<kk> 
<kk> 


<bi> 


<gk>- 


<be> 
<bc> 


<aj? 
<ea> 
<jc> 
<jc> 


<la> 
<mj?> 
<cj? 


<jk> 


<dk> 
<lf> 


<nd> 


<ge> 
<ld> 


<ah> 
<dl> 
<hh> 
<nd> 
<an> 
<fb> 
<go> 


<hm> 
<da> 
<om> 
<ac> 
<gb> 
<bk> 
<bk> 
<pf> 


<il> 
<jn> 
<ob> 
<if> 
<ig> 
<fb> 
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1228 ifs=1then 1269 

1238 ifff[(i)>48thenff[li)=fFf[li)-48 
1248 ifffli)<12*s-1lor figls,i)>12 
*s-12then 1268 

1258 fFfli)=ffli)+56-s*8:ifff(i)>s* 
4+48then 1278 

1268 if peek( fl ffli)))<>sfls)thenf 
s=fs+t1:goto1288 

1278 ffli)=d:q=8 

1288 nexti:iffs>@then 1568 

1298 print"kann leider" :print"nich 
t ziehen" 


1388 iffe=Borwu>2thengosub246B: got 
0988 

1318 iffe=4then 1358 

1328 fori=1Itofe-4 

1338 ifpeek( f(49+s5*4-i))<>sf(s)the 
n98B 

1348 nexti 

1358 gosub2738:goto1118 

1368 rem ------------------------- 
1378 rem figur ins spiel bringen 
1388 rem ------------------------- 
1398 wu=®: f=s*12-11:fz=peek(f(f)) 
1480 iffz=sf(s)then1148 

1418 fori=1to4:iffig(s,i)>64then14 
38 

1428 nexti:goto1148 

1438 print"einsetzen!*:print 

1448 x=i:iffz<>87thengosub2948 
1458 pokef( fig(ls,x)),87:pokef( f)-1 
024 ,49+5s 


1468 pokef(f),sf(s):fig(s,x)=f:gos 
ub2738 

1478 Fori=1to4:iffig(s,i)>64then14 
98 

1488 nexti:goto1148 

1498 print"anfangsfeld":print"frei 
machen!":print 

1588 F=ftw:ffli)=f 

1518 ifpeek(f(f))=sf(s)thenprint"g 
eht nicht!":goto1148 

1520 gosub3218:ifw<>6then98B 

1538 print"neuer wurf! 

1548 gosub2739:goto111® 

1558 rem 
1568 rem 
1578 rem 
15808 forx=1to4:iffigls,x)<>12#s-11 
then 1658 

1598 ifff[x)=8then 1668 

1688 fori=1to4:iffig(s,i)>64then16 
28 

1618 nexti:goto166# 

1628 fs=1:fori=1to4:ifi<>xthenffli 
)=8 

163@ nexti:print"anfangsfeld":prin 
t"freimachen!" 


figur setzen 


<pb> 
<mi> 


<mf> 
<db> 


<11> 
<ha> 
<gg> 


<eo> 


<hm> 
<ji> 
<ol> 


<ee> 
<fb> 
<in> 
<db> 
<ha> 
<jm> 
<ip> 
<lik> 


<pm> 
<nl> 
<ae> 
<go> 


<ke> 
<mf> 


<ae> 
<jh> 


<nn?> 
<nn> 


<ho> 
<gk> 
<ij> 
<dd> 
<en> 
<on> 
<no> 


<ec> 
<jd> 


<je> 
<da> 


<bk> 


<co 39 
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1648 
1658 
1668 
1678 
1688 


print:goto1668 

nextx 

x=0:q=8 

x=x+1:ifx>4Athenx=1 
ifff(x)=8then 1678 

1698 iffs=1then1798 

17088 ifaut=2 or mid$(s$(s),11,1)=" 
*"then 1848 

1718 ifgthen1758 

1728 print"zu ziehende”:print"figu 
r mit der" 

173@ print"leertaste an-":print"wa 
ehlen -"d2$"mit" 

1748 print"return setzen.":q=1 
1758 pokef( fig(s,x)),sf(s)+128 
1768 sound2,898,3:getkeya$:ifa$="" 
then1788 

1778 ifa$=chr$( 13) then 1798 

1788 pokef( fig(s,x)),sf(s) :goto167 
N) \ 

1798 gosub3218:ifw<>6thenY9HaB 

1888 fori=1t04 

1818 iffig(ls,i)<s*4+44 or fig(s,i) 
>60+s*4 then1899 

1828 nexti:goto98® 

1832 rem 
1849 rem 
1858 rem 
1868 forx=1to4:ifff[x)=Bthen 1988 
1878 ifff[lx)>4Band fig(s,x)<49then 
1798 
1888 
8 
1898 
1988 
1918 
1928 
i)+48 
1938 FFli)=Frfli)-s*12-12+48 

1948 nexti:g=ffl[ 1) :x=1 

1958 fori=1to4:ifff(i)>gtheng=ffli 


strategien 


ifpeek( f(Ff(x)))<>87 then 179 


iffflx)=s#4+48Bthen 1798 

nextx 
fori=1to4:ifff(i)=8then 1948 
if ffli)<s*#12-11thenff[i)=ffl 


):x-i 

1968 nexti:goto1798 

19708 kon or 
1988 rem unterprogramme 

1998 nom ee 
2888 rem laufschrift 

2B10 Dam =>7=7 = 2252 
2828 ifx2-x1>1len(q$) theng$=q$+d2$+ 


q$:g0t02928 

2830 q$=q$+d2$:1g=1len( q$) :xg=x2-x1 
:return E 

2848 chari,x1,z2z,mid$(q$,1,xg):goto 
2978 

20858 q$=right$(lq$,1g-1)+left$lg$, 1 
) :return 

2868 printmid$( g$,1,xg) ;chr$( 145) 
2878 g$=right$(g$,1g-1)+left$lg$, 1 


<bl> 
<dm> 
<ck> 
<dl> 
<hb> 
<el> 


<fm> 
<ko> 


<cc> 


<og> 
<pn> 
<gg? 


<oo> 
<cm? 


<mi> 
<ma> 
<fo> 


<hh> 
<le> 
<dh> 
<pm> 
<eb> 
<jl> 


<be> 


<lc> 
<ik> 
<ci> 
<di> 


<ha> 
<cf> 
<cj? 


<hd> 
<nl> 
<ce> 
<mf> 
<ho> 
<op> 
<nb> 


<mg> 
<gi> 
<je> 


<ho> 
<nk> 
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):return 

2888 return 

2BIN TEN 7a nn 
2188 rem spielfeld erstellen 

2.110 nem. Fe ne 
2128 printchr$( 27) +"n":sys1815:gos 


ub2348 

2138 printd$d4$ 

2148 i=1:f(8)=3478 

2158 ifi<6ori=12ori=13or(i>18andi< 
24) thenx=2:y=8:g0t02198 

2168 ifli>6andi<12)ori=4Bor( i>37an 
di<43)thenx=8:y=-B8:g0t02198 

2178 ifli>13andi<19)ori=24ori=25or 
(i>3Bandi<36) thenx=®: y=88:g0t02198 
2188 ifli>24andi<3t)or( i>41andi<48 
Jori=36thenx=-2:y=9:g0t02198 

2198 F(i)=Fli-1)+x+y:pokef(i),87 
2288 pokefli)-19024,74:i=i+1:ifi<49 
then2158 

2218 s=1:fori=49t052:f(i)=3552+ i- 
48) #2:gosub2578:nexti 

2228 poke3432,66:poke2488,66:f1=33 
92:72=3231:gosub2478 

2230 s=2:fori=53t056:f[(i)=3164+( i- 
53) #88: gosub257@:nexti 

2240 poke39087,64:poke2963,67:f1=31 
68:f2=3247:gosub2478 

2258 s=3:fori=57t068:fli)=3574-(i- 
57)*2:gosub257®8:nexti 

2268 poke3696,66:poke2672,68:f1=38B 
14:f2=3887:g0sub2478 

2270 s=4:fori=61t064:f(i)=3964-(i- 
61) *88:g0osub2578:nexti 

2280 poke4841,64:poke3817,69:f1=40 
38:f2=3871:gosub2478 

2298 fori=1t03:poke3482+j1, 198:poke 
3482+1*49,183 

2388 poke3486+i*40,1B1:poke3642+i, 
99:nexti 

2318 fori=1t03:poke2458+1 ,72:poke2 
458+i1*48,72 

2328 poke2462+1*48,72:poke2618+i,7 


‚2:nexti 


2338 return 

2348 print:printchr$( 19) tab( 26) chr 
ser | 

2358 fori=1to22:print:nexti 

2368 printd$d3$chr$( 27) "6b" 

2378 printchr$( 19) chr$( 18) "mensch 
aergere" 

2388 printchr$( 18) "dich nicht... "” 
2398 print:printchr$( 27) "t":fori=1 
to21:print:nexti 

2488 printd$d3$chr$( 27) "b" 


2418 scnclr:iftn=dthenreturn 
2428 gosub 2459:print:print 
2438 gosub3B8B 


MENSCH AERGERE DICH NICHT u 


2448 return 

2458 print:goto3498 

2468 print:goto3578 

2478 i=i+12:m=1:fork=Bto2step2:for 
j-8t089step8® 

2489M Fli)=fi+k-j:figls,m)=i:m=m+1 
2498 poke fli),sf(s):pokef(i)-1824 
‚s+49:i=i+1 

258@ next j:nextk:pokef( s#12-11)-1® 
24,65+5 

2518 i2=instr(s$(s)," ")-1 

2528 ifi2<@theni2=1en(s${s)) :ifi2> 
18theni2=18 

2538 fori=1toi2:g=asc(mid$(s$(s),i 
‚1))-64 

2548 ifg<itheng=qg+64 

2558 poke f2+i,g:pokef2+i-18024,5+4 
9:nexti 

2568 return 

2578 pokef(i) ,87:pokef(i)-1824,65+ 
s:return 

2580 rem — en ———— 
2598 rem naechster spieler 

2600 rem --- 
2618 ifaut>Bthen2688 

2629 q$="bitte irgendeine taste dr 
uecken" 

2638 x1=26:x2=39:z=23:gosub2828 
2648 for i=1t01888:gosub2968 

2658 forj=1t02@:nextj:geta$:ifa$<> 
""then2678 

2668 nexti 

2678 printd$d3$ 

2688 colori,s+2,3:print:print left 
$(s$(s),1B) 

2698 print"ist dran" 

2708 q=3399-( s>1) *19-( s>2) *32B8+[ s> 
3)*18 

2718 pokeg,sf(s)+128:pokeg-1824,49 
+s5+128 

ION DEN FETT 
2730 rem wuerfeln 

2100 ven > 
2750 wx=182:wy=97:w=8:gosub2850 
2768 ifmid$(s$(s) , 16)="*"orautthen 
fori=1tornd( x) *188:nexti 

2778 q$="wuerfel rollt:" 

2788 x1=26:x2=39: 2z=23:gosub2828 
2798 fori=1to2@+rnd( ti) #38-tn*5 :g 
osub286B i 

2888 iftnthen sound 2,i*2,1:sound3 
‚1988-i*2,1 

2818 nexti:printd$d3$ 

2828 w=int(rnd( ti) #18) :ifw<slorw>6t 
hen2828 

2838 ifw=5then:sound 2,889,3:sound 
1,880,3:gosub2458 

2848 print:wx=96:wy=72:gosub2858:r 


eturn 

2858 fori=1t03:fori2=3522t03682ste 
p4d 

2868 pokei2+ti,wx:pokei2+i-19024 ,wy: 
nexti2 

2878 nexti:ifw=dthenreturn 

2888 wx=B1:ifw/2<>int(w/2) thenpoke 
3564 ,wx 

2898 ifw>1ithenpuke3525,wx:poke3643 
„wx 

2988 ifw>3thenpoke3523,wx:poke3695 
„wx 

2918 ifw=6thenpoke3563,wx:poke3565 
wx 

2928 return 

2930 Fön: = 
2948 rem hinauswerfen 

2356 Ten = me nn 
2968 q=peek( f(f)-1924) :pokef( f) -18 
24 ,q+128 
2978 Forh=ito4:iffz=sf(h)then2998 
2988 nexth 

2998 fori=ito4:iffig(h,i)=fthen381 
8 

3888 nexti 

3818 color1,h+2,3:printleft$( s$(h) 
‚182) :gosub2468 

3828 color1i,s+2,3:print 

3839 gq$="fliegt raus!!":x1=26:x2=3 
9:z=23:gosub2828 

3848 gosub388B:printd$d3$ 

30858 fig(h,i)=h*4+i+68:pokef(fig(h 
‚i)),sfCh) 

3868 return 

3078: rem => 
30888 rem anzeige hinauswurf 

3a9B: wen Fe 
3188 forl=1toßstep-1:fork=38098t031 
11 

3118 forj>-®to48step49:pokek+tj,peek 
(k+j)-128 

3128 pokek+j-1824,1+53:nextj:gosub 
2068 

3138 sound1,3#*k-8382-1*#84,2:nextk 
3148 fork=3898t0o3111:forj=Bto4ßste 
p48 

3158 pokek+j,peek(k+tj)+128 

3168 pokek+j-1024,53-1:nextj:gosub 
2068 . 

3178 sound1,3*k-8340-1*84,2:nextk 
3188 next l:iff>@thenprint"fliegt 
raus!!"” 

3198 return 

32u8 rem — 
3218 rem figur setzen 

3720 Dam Sr 
3238 printleft$(s$(s),1®) 

3248 print"setzt die"”;w 


<pn> 
<af> 


<ia> 
<cf> 


<ae> 
<gd> 
<pm> 


<gb> 
<he> 
<ij> 
<en> 
<lc> 


<me> 
<con> 
<al> 


<bl> 
<fl> 


<bk> 
<kl> 


<pf> 
<eb> 


<em> 
<in> 
<ci> 
<oe> 
<im> 


<ok> 
<pc> 


<fd> 
<ap> 


<id> 
<jp> 


<mc> 
<bj> 


<hd> 
<jd> 
<jf> 
<bc> 
<mo?> 
<on? 
<jm> 


« 
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3258 fF=fig(ls,x):poke f(f),87?:pokef 
(f)-1024,74 

3268 iff>48thenpokef( f)-19024,65+5 
3278 fori=Itow:fi=f+1:iff1=49ands< 
>1thenf1=f1-48 

3288 ifs<>1 and f1=s*12-11thenf1i=f 
1+56-5*8B 

3290 iff1=s*12+37thengosub2459 
3308 Fz=peek( f(f1)) :fF=peek( fl f1)- 
1824) :ifi=wthen3348 

3318 pokef(f1),sf(s):poke f[f1)-18 
24 ,49+s:f=f1 

3328 forj=1t099:nextj:sound3, 1012, 
1 

333@ pokef(f),fz:poke f(f)-19024, ff 
:nexti 

3349 f=fl:iffz<>87thengosub2948 
3350 sound3, 1912,1:pokef( f1),sf(s) 
336% poke fF(F1)-1924,49+5:fig(s,x) 
=f 


3378 return 

3380. ren Pre 
3398 rem ladeprogramm 

3400 Pen Free 


3418 restore3438:fori=1815t01863:r 
eada:pokej,a:nexti 

3428 return 

3438 data 169,80, 133,216,169,8 ‚13 
3,217 

3440 data 169, 121 ,‚162,4,1680,8, 1 
45,216, 136,288,251 

345N data 238,217, 282, 208,246 
3468 data 169,0, 133,216,169,12,13 
3,217 

3470 data 169, 168 ‚162,4,160,®, 1 
45,216, 136,288, 251 

3488 data 230,217, 202, 298,246,96 
3498 printd3$" N"zm$zm$zm$zmg"M " 
3588 printd3$" "zAa$dA$z6$" " 

3518 printd3$"U W"d2g"W I" 

3528 printd3$"J"d4$d2$"K” 

353A printd3$" "zAa$" IK "26%" " 
3548 printd3$" "z4$ze$ze$ze$ze$z6$ 


".. 


3558 printd3$" "zA$"M"ze$ze$"N"”z6$ 
3568 printd3$" M"ze$ze$ze$ze$"N ": 
return 

3578 printd3$" N"zm$zm$zm$zm$"M " 
3588 printd3$" "zj$d4$z9$" " 

3598 printd3$”"U Q”d2$"”Q I” 

3682 printd3$”"4"dAa$d2$"K" 

3618 printd3$" "zj$” JK "z9$" " 
3620 printd3$” "zj$d4gz9$" " 

3638 printd3$" "zj$"N"zm$zm$"M"zZ9$ 
3648 printd3$" M"ze$ze$ze$ze$"N ": 
return 


3658 forb=1t029:printb$; :next:retu 


rn A <gp? 
3668 d$=chr$( 32) :d2$=d$+d$:d3$=d2$ 
+d$ <fa> 
3678 d4$=d3$+d$:d5$=d4$+d$:d$=d5$+ 
d5$ <nj> 


3688 z4$=chr$( 165) :z6$=chr$( 167) <cg> 
3698 z9$=chr$( 178) :ze$=chr$( 175) <ci> 
3708 zj$=chr$( 188) :zm$=chr$( 183) <hj> 


3718 zp$=chr$( 186) return <ad> 
3320 Lan FFFrsssä3ssrnHBesernnn <B> 
3738 rem 12277 bytes memory <ad> 
3748 rem 18524 bytes program <pc> 
3758 rem 890315 bytes variables <go> 
3768 rem 908759 hytes arrays <hl> 
3778 rem 88431 bytes strings <pe> 
3788 rem 89248 bytes free (®) <ik> 


„Mensch ärgere dich nicht“ gibt es nun auch auf dem 
Computer. Bis zu vier Spieler können mitmachen. Sie 
haben die Wahl, ob Sie selber die Sache in die Hand 
nehmen oder ob der Computer Zwangszüge selbst aus- 
führen soll. Dieser bringt mehr Geschwindigkeit in das 
Spiel. Sie können aber auch als bloßer Zuschauer das 
Spiel verfolgen, indem Sie den Computer alles auto- 
matisch machen lassen. In der Zwischenzeit können 
Sie ja spazierengehen oder sonstiges treiben und nach- 
her nachsehen, wer gewonnen hat. 
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Wir lassen Sie nicht 
im Stich! Das grosse 
C16/P4-Handbuch! 
Alles, was Sie wissen 
müssen 


Pi MOL F sl:J= 
Bi wiz SURZ 


Alles über 
ihren 
C16/P 4 


Das 
Handbuch 
für Ci6/P4 


Jetzt an Ihrem Kiosk u 


im Bahnhofs-Buchhandel 
Durchgehend in Farbe! DM 19,80 
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en za Weiterverarbeitung zur Verfügung. 
Speicher-Giganten Am Ende dieses Artikels finden Sie 
ein Programm, das die Funktions- 
weise demonstriert: Ein BASIC-Pro- 
gramm für den Plus4, das Daten über- 
256 KByte und mehr kann Ihr C16/116/Plus4 Hauptspeicher trägt. Das entsprechende Programm 
haben. Wer hätte dieses gedacht? Nun ist sie da, die Supererweiterung. un an De . rg 
Adresse 64800 als Übertragungs-Re- 
gister, wobei die Adressen 64802 
und 64803 auf 255 gesetzt sein müs- 
256*16+C16x16=+4x4+256*16 Das MSM dient dazu, Software ge- sen (Register auf Ausgang). Die Ver- 
So Hiedi t} sche steuert umschalten zu können. Als änderung des Plus4-Beispiel-Pro- 

2 ENWI 18 ” (abet: B Umschalt-Adresse dient beim Plus4 gramms sollte als gute Übung betrach- 

Gleichung auch Se en ın De der Userport (P7 und P6) und beim tet werden. 

ZUB au LuBere tl IEBETEIWEN  C16/C116 ein VIA-Chip). Die zwei Nun zum Umbau: 

re ns EA C16/ Schaltleitungen, die vom Userport Hier sei als erstes eine ernste War- 
cl 6 fd ie be Spei- beziehungsweise vom VIA abgehen, nung ausgesprochen: Wie die Erfah- 

} N p] El Fa 2: ad p haben nämlich binär vier Zustände: rungen bei 64K-Erweiterungen ge- 
en Er 2 ne 256 KB - nt ein/ein, aus/ein, ein/aus und aus/aus, zeigt haben, gibt es offensichtlich 
gehlasen. Br Er woraus die Möglichkeit Eau erh eine Menge Leute, die anns vom 

f “nö vier Speicherbereiche anzusprechen. Löten einer undichten Dachrinne 
a Da die Zustände an den Ausgängen haben und glauben, mit diesen, im 
gabyte und mehr sind kein Problem. nicht vom jeweiligen Speicherbereich Computerbereich nutzlosen Erfah- 


i : : beeinflußt werden, ist zumindest rungen, hochwertige Elektronik lö- 
2 le . : 
vr peeinnen an ba ent der Schaltzustand gesichert. Nun ha- ten zu können. Deren Ergebnisse wa- 
ee: Erbe fiagen ie ben wir davon noch keinen 256K- ren grauenerregend. Es kann daher 
denn so etwas bei einem 8-Bit-Pro- Computer. Um dies zu erreichen, nur bei eingehenden Erfahrungen im 


muß ein Weg gefunden werden, Da- Löten haarfeiner Leiterbahnen zum 


zessor möglich ist. 

Es ist im Prinzip genauso möglich, 
wie das Zusammenleben von 64K- 
Byte RAM und 32 KByte ROM und 
noch 64 KByte EPROMS (plus 32 
KByte eingebaute Software beim 
Plus4) funktionieren. 
Bankswitching heißt das Geheimnis. 
Man schaltet einfach zwischen ver- 
schiedenen, maximal 64 KByte 
großen Speicherbereichen um. AR 
Wer genau überlegt, wird sich 

prompt fragen, wie denn so etwas 
funktionieren kann, wenn nicht we- 
nigstens ein Speicherbereich existiert, 
wo drin steht, in welcher Speicher- 
bank sich der Rechner im Moment 
befindet. 

Sogar zwei dieser Speicherbereiche 
gibt es, und zwar sind es beim C16/ 
C116 und Plus4 die I/O (Input/Out- 
put)-Bereiche und der TED (fd00O bis 
fflf, und ff3e bis ff3f). Den letzte- 
ren Bereich benutzt das Betriebssy- 
stem für die eingebauten Bankswitch- ten aus einem in einen anderen Spei- Do-it-yourself-Verfahren geraten 


Routinen. cherbereich zu transferieren. werden. 
Die von mir entwickelte Speicherer-- Maschinensprache-Experten (zu de- An dieser Stelle ein wichtiger Hin- 
weiterung auf 245K benutzt den nen ich mich nicht zähle) wissen, weis: 
1/O-Bereich zum Umschalten und dafs man keinen Wert direkt aufei-_ Aus technischen Gründen ergibt sich 
zum Datentransfer. nen Speicherplatz schreiben kann, für den Umbau des Plus4 ein ent- 
Prinzipiell funktioniert das Ganze so: sondern den Umweg über ein Pro- scheidender Unterschied zum C16 
Man nehme acht 256Kx1 DRAM zessor-Register wählen muß. C116: 
(dynamische RAMs) Speicherbau- So ähnlich funktioniert die Sache Beim Plus4 werden die Speicherbau- 
steine, das MSM (Memory Switch hier auch: Der zu übertragende steine auf der Rechnerplatine ausge- 
Modul — eine eigene Entwicklung), Wert wird in ein Register geschrie- wechselt, während beim C116 auf 
einen Schalter, Kabel und zwei Dio- ben — beim Plus4 in ein Register der Rechnerplatine nur ein Kabel 
den und schon hat man seinen 256K- des RS-232-Chip, beim C16/116in oben gelötet werden muß. Beim 
Rechner. ein Register des VIA-Chip. Derselbe C16 muß nicht auf der Rechnerpla- 
Nun aber der Reihe nach: Wert wird dann nach dem Umschal- tine gelötet werden. Dort wird der 
In den 256K-Speichern stecken vier ten in den gewünschten Speicherbe- Aufbau auf einer Zusatzplatine vor- 
64K-Speicher, und zwar komplett reich aus just diesem Register wie- genommen. 
mit ZERO-Page. der ausgelesen und steht hier zur Trotzdem rate ich allen, die die ge- 
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100 
110 
120 
130 
140 
150 
| 160 
| 170 
' 180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
295 
300 
310 
320 
324 
326 
328 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
465 
470 
480 
490 
494 
496 
497 
500 


INPUT" [T] ODER [E] 


INPUT" [J] ODER [N] 
IF WS="N" THEN END 


21=64775:SB=64784 
REM INITIALISIEREN 


POKESB, (ZW) 
INPUT 


INPUT 
AN=DEC(HS) 


I=AN 
POKEZ1,PEEK(I) 
POKESB, (BN) 
I=1I+l 

IF I<=EN THEN 


RETURN 


21=64775:SB-64784 
REM INITIALISIEREN 


POKESB, (ZW) 


INPUT 
AN=DEC(HS) 
INPUT 
EN=DEC (ES): SCNCLR 
POKESB, (BO) 


I=AN 

POKEI, PEEK(Z1) 
POKESB, (BO) 

L-I+1 

IF I<=EN THEN 480 


POKESB, (BO) 
RETURN 


ringste Unsicherheit verspüren, drin- 
gend dazu, ihre Rechner nicht selbst 
umzurüsten, zumal der Aufpreis für 
die Umrüstung in keinem Verhältnis 
zu dem Preis einer Reparatur am 
vermurksten Computer steht. Denn: 
Haben Sie Ihren Plus4 oder C16/ 
C116 auf 256K aufgerüstet, sind 
seine Fähigkeiten bei denen vom 
C128 anzusiedeln. 

Mit noch mehr Speicher wird schon 
PC-Qualität erreicht. 


REM SPEICHER-TRANSFERPROGRAMM 
PRINT"SOLL TRANSFERIERT ODER EMPFANGEN WERDEN" 
"WS 

IFWS="T"THEN GOSUB 190:GOTO150 
IFWS="E"THEN GOSUB 350: ELSE GOTO120:G0TO150 
PRINT" WEITERER DATENAUSTAUSCH GEWUENSCHT" 
"SWS 


IF W$="J" THEN GOTO 110:ELSE GOTO150 
REM DATENTRANSFERPROGRAMM A 
ZW= (INT(PEEK(SB)/64))*64+63 
"ZIEL BEREICH 0,1,2,3 
BN=255-BZ*64: POKESB, (BN):REM SPRUNG 
"RAM ANFANG IN HEX";HS 

INPUT "RAM ENDE IN HEX”;ES 


EN=DEC (ES): SCNCLR: POKESB, (BN) 
POKE65286, PEEK (65286) AND239 


GOTO31O0 
POKE65286, PEEK (65286) OR16 
POKESB, (BN): POKESB, (ZW) 


REM DATENTRANSFERPROGRAMM B 


ZW= (INT(PEEK(SB)/64) )*64+63 
INPUT "QUELL- BEREICH 0,1,2,3 ";BQ 
BQ=255-BQ*64: POKESB, (BO):REM SPRUNG 
"RAM ANFANG IN HEX";HS 


"RAM ENDE IN HEX":ES 


POKE65286, PEEK (65286 )AND239 


POKE65286, PEEK (65286)OR16 


"-BZ 


Die eventuell schon eingebauten 
64K-Erweiterungen beim C16/C116 
werden übrigens durch die Aufrü- 
stung auf 256K abgeschaltet. Sie 
sind aber über einen Schalter zu- 
gänglich. Außerdem ist in Kürze ein 
Modul erhältlich, das die Möglich- 
keit bietet, auch auf diese 64K soft- 
waregesteuert zuzugreifen, so daß 
den Besitzern einer 64K-Erweite- 
rung dann 320K zur Verfügung 
stehen. 
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Das dazu verwendete Modul MSM 
V 2.0 schaltet auch die zusätzlichen 
256-KByte-Erweiterungen (in weni- 
gen Wochen lieferbar). 

Hier sei noch darauf hingewiesen, 
daß die umgerüsteten Rechner voll 
kompatibel, sowohl in die 64-K- 
Byte-Version, als auch in die 16- 
KByte-Version umschaltbar sind. 


DER BAUSATZ VOM C16/C116: 


Teileliste: 
8 Speicherbausteine 41256 
2 7415257 
1 Steckpfostenverbinder 
Alle Sockel (außer TED- 
Sockel — ist schon eingelötet) 
1 6522 VIA 


1 MSM V 1.0 (Memory Switch 
Modul) 

2 LED (langes Beinchen 
= Pluspol) 

1 BCD-Schalter (zum hardware- 
mäßigen Anwählen der 
Bereiche) 


DER UMBAU: 


© Das Gehäuse aufschrauben. 

O Tastaturkabel — vorsichtig — her- 
ausziehen. Beim C16 noch das 
Kabel zur LED. 

O Den TED-Chip UI vorsichtig ab- 
wechselnd links und rechts aus 
seiner Fassung heben. Ebenso U16 
beim C16 bzw. Ul01 beim C116. 

© In die mitgelieferte Platine die 
Sockel gemäß ihrer Kennzeich- 
nung einlöten. 

© Den Pfostenverbinder in die Plati- 
ne an der gekennzeichneten Stelle 
am Rand festlöten. 

© Dann das MSM auf den Pfosten- 
verbinder aufstecken und festlöten. 

© Jetzt die beiden LEDs und den 
BCD-Schalter in den Gehäusedek- 
kel einlassen und die Kabel von 
der Platine zum Schalter (C, 1,2) 
und zu den LEDs (lange Beine, ge- 
meinsamer Pol) anlöten. 

© Reset-Kabel (gekennzeichnet) an 
Pin 1 bei Ul0O5 (C116) am Chip- 
Beinchen anlöten. Nun die Platine 
in den TED-Sockel, den TED (Rich- 
tung!) oben auf gesteckt, und die 
Tastatur angeschlossen. Beim C116 
muß noch ein Stück aus dem Ab- 
schirmblech geschnitten werden. 

© Gehäuse schließen. 


DEN BCD-SCHALTER 
AUF NULL STELLEN 


Wenn man jetzt anschaltet, meldet 
sich der Rechner mit 60671 Byte 
free. Jetzt schalten wir den BCD- 


rs EEE 
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Schalter auf 1 und sehen nur ein Zei- 
chenmuster, ansonsten ist der Rech- 
ner tot. Das liegt daran, daß kein 
automatischer Reset stattgefunden 
hat, wie im Bereich 0. Also drücken 
wir den Reset-Knopf und sehen er- 
neut die Einschaltmeldung. Mit Be- 
reich 2 und 3 verfahren wir genau- 
so. Einen automatischen Reset für 
alle Bereiche hatte ich auch erwo- 
gen, war aber dann davon abgekom- 
men, weil er die Möglichkeit nimmt, 
ohne Änderung des Betriebssystems 
nur in einzelnen Bereichen einen 
Reset durchzuführen. 


NUN ZUM UMBAU VOM PLUSJ/A: 


Teileliste: 

8 Speicherbausteine 41256 
8 Sockel 

1 BCD-Schalter 


2 LEDs 

1 MSM V1.0 (Memory Switch 
Modul) 

Kabel 


Zuerst den Gehäusedeckel öffnen 
und das Verbindungskabel zur Tasta- 
tur herausziehen. 

© Zuerst den Gehäusedeckel öffnen 
und das Verbindungskabel zur 
Tastatur herausziehen. 

O Anschließend alle Schrauben aus 
den Abschirmblechlaschen und 
der Platine entfernen. 

© Jetzt den BCD-Schalter und die 
beiden LEDs über dem Userport 
in den Deckel einlassen. 

© Nun die alten Speicherbausteine 
Ul1 bis Ul8 auslöten oder ab- 
knipsen und die Beinchen einzeln 
auslöten. Größte Vorsicht ist ge- 
boten. 

O Jetzt die Sockel einlöten. Alle 

Pin 1 der Sockel auf der Platinen- 

Unterseite miteinander verbinden 

und reichlich Kabel daran lassen, 

daeran das MSM angeschlossen 
werden muß. 

Liegt das MSM mit den Lötan- 

schlüssen nach oben, müssen die 

14 Anschlüsse von links nach 

rechts nach dem, dem Umrüstsatz 

beiliegenden Plan, angeschlossen 
werden. 

© Modul MSM V1.0 an Gehäusedek- 
kel schrauben oder kleben. 

O Zusammenbauen - fertig! 


Hier die Userport-Zählweise: 

Von hinten Bauteile oben: 

1 links — 12 rechts. A links N rechts, 
d.h., F liegt unter 6 und J unter 8! 
Merke: Es gibt nicht alle Buchstaben! 


Ein wichtiger Hinweis noch zum Ge- 
brauch des Schalters und der LEDs: 


Bei LEDs aus, bedeutet Bereich 0. 
Rechte LED Bereich 1, linke LED 
Bereich 2, beide LEDs Bereich 3. 
Es ist nur möglich, vom Programm 
aus über die Hardware, sprich Schal- 
terstellung zu gehen, d.h., die Be- 
reiche unter der Schalterstellung 
sind gesperrt. 

Beispiel: 

Schalter auf Bereich O bedeutet, 
daß alle Bereiche vom Programm 
aus angesprochen werden können. 
Schalter auf Bereich 3 bedeutet, 
dafs kein anderer Bereich, wie die 
Anzeige der LEDs auch sein mag, 
vom Programm aus erreicht wird. 
Diese Regelung ist sehr zweckmä- 
ßig, da der Userport beispielsweise 
für Centronics-Drucker oder BASIC- 
Compiler-Kopierschutz-Stecker 
oder Eprom-Brenner benötigt wer- 
den kann, wobei eine automatische 
Bereichsumschaltung stören würde. 
Hierin liegt ein wesentlicher Vor- 
teil dieser Bauart der Speicher-Er- 
weiterung. 

Sicher werden mit der Zeit eine 
Menge Fragen auftauchen, die jetzt 


Preisliste: 
1. Bausätze: 
Plus4 DM 178,- 
C16/C116 DM 229,- 
2. Umrüstservice: 
us DM 225,— 
C16/C116 DM 269,- 
3. Lötfreie Steckversion: 
Nur C16 DM 249,— 
4. Löstfreie Steckversion 
ohne Gehäuseeingriff 
(für Schalter/Dioden): 
Nur C16 DM 298,—- 
5. Usersport-Stecker 
Im Bausatz 


C16/C116 DM 39,- 
Beim Umrüstsatz 
C16/C116 DM 59,- 


6. MSM V2.0 (alte Erweiterung 
per Software nutzbar) 
C16/C116 DM 59,- 


7. Centronics-Kabel (Userport- 
Stecker Voraussetzung) 
C16/C116 DM 89,- 


8. Diskette mit Centronics- 
Treiber-Software 
C16/C116 DM 


Zum Schluß noch ein 
Leckerbissen für Einsteiger: 


9. Userport nachrüstbar 
auf 256 KByte: 
Als Bausatz: 

C16/C116 DM 79,- 
Mit Einbau: 
C16/C116 DM 98,- 


19,- 
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noch gar nicht alle vorherzusehen 
sind. Wenn Sie Probleme haben, die 
bei der Arbeit mit der Erweiterung 
entstehen, so schreiben Sie an den 
Verlag. Wir werden in einer der 
nächsten Ausgaben darauf eingehen. 
Nun noch ein paar Worte zum 
Programm Datentransfer. 

Nachdem Sie das Programm geladen 
haben, starten Sie es mit RUN 
Geben Sie T für Transferieren ein. 
Sie werden nach dem Zielbereich 
gefragt. Geben Sie den gewünsch- 
ten Bereich ein. Der Rechner springt 
dann in den Ziel-Bereich (BCD-Schal- 
ter auf O) und landet dort im Moni- 
tor! Aber nur wenn dort kein Pro- 
gramm ist. Verlassen Sie den Moni- 
tor mit x-ret. Jetzt laden Sie wieder 
in gewohnter Weise das gleiche Pro- 
gramm und starten. Als Unterschied 
geben Sie jetzt nur an, daß empfan- 
gen werden soll. 

Bei den Hex-Zahlen muß die Diffe- 
renz in beiden Bereichen absolut 
gleich sein, weil sonst die Schleifen- 
längen nicht übereinstimmen. Die 
Programmierung automatischer 
Transferprogramme stellt für unse- 
re Leser sicher kein Problem dar. 
Und hier noch ein fast sensationeller 
Hinweis für C116- und C16-Besitzer: 
Beim Umbau Ihres Rechners erhal- 
ten Sie sozusagen als Beigabe einen 
kompletten 2x8-Bit-Parallel-User- 
port mit vier Handshake-Leitungen. 
Die Register-Beschreibung liegt dem 
Umbausatz bei. (Läuft auch als 
Centronics-Interface.) 


ZUSAMMENFASSUNG: 


l. Speichererweiterung 256 KByte: 

. Auf 16 MByte (und mehr) er- 

weiterbar; 

3. Voll kompatibel zu 16-KByte- 

und 64-KByte-Versionen:; 

4. Schon eingebaute Erweiterungen 
voll nutzbar (in der Grundver- 
sion per Schalter, gegen Aufpreis 
durch Software ansteuerbar; 

5. Integrierter Userport: 2 mal 8 
Bit parallel 4 Handshake-Leitun- 
gen. Zum Beispiel Centronics- 
fähig (in der Grundausstattung 
Platinenanschlüsse, gegen Auf- 
preis Steckeranschluß. Centronics- 
Kabel lieferbar, Software auf 
Anfrage). Michael Lausch 


DD 


Und hier noch die Kontakt- 
Adresse für Rückfragen und 
Bestellungen: 


Michael Lausch 

Im Obergrund 7 

6204 Taunusstein 1 

Tel.: 06128/3774, nach 17 Uhr 
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Die wichtigsten 
Grafik-Befehle 


des V 3.5 - Basic 


Dieser Artikel soll nicht das Handbuch ersetzen, 


sondern solche Befehle näher behandeln, die aufgrund 


ihrer Vielseitigkeit etwas kompliziert sind und 
so vom geübten Programmierer nicht voll genutzt 
werden können. 


Die hochauflösende Gra- 
fik des C16 mit einer Auf- 
lösung von 320x200 

= 64000 Punkten in 16 
Farben und acht Hellig- 
keitsstufen ist eine seiner 
hervorragendsten Eigen- 
schaften. Doch erst die 
starken Grafik-Befehle er- 
möglichen eine optimale 
Ausnutzung dieser Fähig- 
keiten. Leider steht dem 
C16 in der Grundversion 
nur noch etwas mehr als 


2 KByte Speicher zur 
Verfügung. Es ist aber er- 
staunlich, was man da- 
mit alles anfangen kann, 
besonders wenn man die 
Möglichkeit des Nachla- 
dens von weiteren Pro- 
grammteilen nutzt. 

Wie man in bestimmten 
Fällen auch den Bild- 
schirmspeicher für Pro- 
gramme nutzen kann, 
wurde in der CW 2/87 
erklärt. 


Die hochauflösende Gra- 
fik wird im allgemeinen 
nicht für Spiele eingesetzt, 
da hierzu der Bildschirm- 
aufbau zu langsam ist. 
(Für Spiele verwendet 
man einen veränderten 
Zeichensatz.) Das Einsatz- 
gebiet liegt eher bei der 
Darstellung von Kurven 
und Bildern zur Verdeut- 
lichung von mathemati- 
schen oder statistischen 
Zusammenhängen und 
der künsterlischen Grafik. 
In diesem Abschnitt sol- 
len die beiden umfang- 
reichsten Grafik-Befehle 
CIRCLE und SSHAPE 
behandelt werden. Um al- 
les zu verstehen zu kön- 
nen, muß zunächst der 
Begriff des Pixelcursors 
erklärt werden. 


DER PIXELCURSOR 


So wie im Textmodus der 


blinkende Rechteckcur- 
sor die Position anzeigt, 
bei der das nächste Zei- 
chen ausgegeben werden 
soll, genauso enthält der 
Pixelcursor (PC) die Posi- 
tion (und die Farbe) des 
zuvor gezeichneten Punk- 
tes. Man kann diese Wer- 
te abfragen: 


print rdot (0) gibt die x- 
Position an; 

print rdot (1) gibt die y- 
Position an; 

print rdot (2) gibt die 
Farbzone an. 


Diese Werte können beim 
Zeichnen als Startwerte 
genutzt werden. Gibt 
man zum Beispiel den 
Befehl 

draw to 100,100 

ein, so wird eine Linie 
von der aktuellen PC-Po- 
sition bis zu x=100 und 
y=100 gezeichnet. Vor 
*to‘ steht übrigens nie 

ein Komma, wie esan 
manchen Stellen im Hand- 
buch auftaucht. 
Besonders interessant ist 
in diesem Zusammenhang 
die relative Bewegung, in- 
dem man anstelle des 
Komma einen Strich- 
punkt benutzt: 


draw to 100;60 


zeichnet eine Linie von 
der derzeitigen PC-Posi- 
tion mit einer Länge von 
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100 unter dem Winkel 
von 60 Grad. 

Eine weitere Relativbe- 
wegung wird mit # ausge- 
führt: 


draw to +100;-100 


zeichnet eine Linie von 
der PC-Position bis nach 
x=rdot (0) +100 und 
y=rdot (1)-100. 

In diesem Fall wird mit 
der Farbe rdot (2) ge- 
zeichnet. 

Die Lage des Pixelcursors 
kann man mit LOCATE 
x, y festlegen, die Farbe 
(F) und die Luminanz 
(L) mit COLOR I|,F,L. 


DER CIRCLE-BEFEHL 


Schreibweise: : 

CIRCLE (fz), (x, y), xt, 
(yr), (wa), (we), (dw), 
(inc) 


fz _ Farbzahl (0 bis 3) 
Normalwerte (beim 
Weglassen) 1; 
Mittelpunktskoor- 
dinaten, 
Normalwerte (beim 
Weglassen) rdot (0), 
rdot (1); 

xt X-Radius; 

yr  Y-Radius, 
Normalwerte (beim 
Weglassen) xr; 
Anfangswinkel (in 
Grad), 
Normalwerte (beim 
Weglassen) 0; 


X,y 


wa 


we 
Normalwerte (beim 
Weglassen) 360 
dreht Figur um win 
Grad, 

Normalwerte (beim 
Weglassen) 0; 
Winkel zwischen 
zwei Segmenten, 
Normalwerte (beim 
Weglassen) 2. 


Die Anzahl der Parame- 
ter, die dem Circle-Be- 
fehl übergeben werden 
können, zeigt schon, wie 
vielseitig er ist. Wie Sie 
sicher aus dem Handbuch 
wissen, können damit 
niclft nur Kreise (circles) 
sondern auch Kreisaus- 
schnitte, Polygone und 
llipaen gezeichnet wer- 


en. 

Da der beste Weg, das 
Programmieren zu erler- 
nen, das Programmieren 
selbst ist, schalten Sie 


dw 


inc 


Endwinkel (in Grad), 
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doch bitte einmal mit 
GRAPHIC 2,1 die Hoch- 
auflösende Grafik mit 
Textfenster ein, geben 
die folgenden Beispiele 
ein und variieren Sie nach 
Belieben. So bekommen 
Sie rasch einen Überblick 
der vorhandenen Möglich- 
keiten. Zur Eingabe eini- 
ge Tips: 

Durch GRAPHIC 2,1 
werden HIRES- und Text- 
bildschirm gelöscht, der 
Cursor befindet sich im 
Textfenster. Bei 
GRAPHIC 2 bleibt der 
Cursor jedoch am alten 
Platz. Man muß dann mit 
dem Cursor nach unten 
fahren. Nachdem ein Be- 
fehl ausgeführt wurde, 
verschwindet die Befehls- 


EDITIEREN IM 
TEXTFENSTER 


zeile oft nach oben. Will 
man in der gleichen Zeile 
Änderungen vornehmen 
und sie dann nochmal 
ausführen lassen, kann 


man sie mit ESC&W (even- 


tuell mehrmals) wieder 
nach unten holen. 

Das Beispiels-Programm 
CIRCLE enthält alle fol- 
genden Beispiele und 
noch einige mehr, wobei 
die entsprechende BASIC- 
Zeile zur Kontrolle ange- 
zeigt wird: 


circle, 160, 100, 50 


zeichnet einen Kreis um 
x=160, y=100 mit dem 
Radius 50; yr ist eben- 
falls 50, da nichts ange- 
geben wurde. Steht vor 
dem ersten Komma (0, so 
wird der Kreis gelöscht. 
Auch für x und y sind 
Relativwerte möglich und 
können viel Rechenauf- 
wand ersparen: 


for w=0t0360 step20: 
locate160, 100: ci rclel, 
40:w,10:next 


zeichnet 18 Kreise mit 
Radius 10, deren Mittel- 
punkt immer 40 Punkte 
unter dem Winkel w vom 
gemeinsamen Zentrum in 
160, 100 entfernt sind. 


for yr=10t0100 step 10: 
circle, 160, 100, 50, yr: 
next 


Hier wird der y-Radius 


variiert, es entstehen also 
lauter Ellipsen. 


for wa=0t0270 step 45: 
circle, +40, 100, 18, 40, 
wa:next 


Der Anfangswinkel der 
Ellipsen wird variiert. 
Gleichzeitig wird der x- 
Wert des Mittelpunktes 
immer um 40 Punkte 
nach rechts verschoben. 
(Nach GRAPHIC 2,1 
steht der PC bei 0,0.) Be- 
achten Sie, daß der Win- 
kel immer oben (bei 12 


Uhr) beginnt und im Uhr- 


zeigersinn gezählt wird. 


for dw=0t090 step 10: 
circle, 160, 100, 40, 60, 
„dwinext 


Die Ellipsen werden um 
den Winkel dw gedreht. 


for p=3to1l5: inc=360/p: 
circle, 160, 100, 50,,,,,, 
inc: getkeya$: graphic 1, 
l:next 

Verändert man das Inkre- 


ment, so ergibt es einen 
eckigen Kreis. Regelmä- 


isige Vierecke erhält man, 
wenn ‘inc‘ ein Teiler von 
360 ist. In diesem Bei- 
spiel erhält man Polygo- 
ne vomDreieck bis zum 
15-Eck, wobei letzteres 
dem Kreis schon sehr ähn- 
lich sieht. Will man 

schnell kleine Kreise zeich- 
nen, so ist es sinnvoll, ein 
Inkrement größer 2 anzu- 
geben, da bei kleinen Krei- 
sen der Unterschied nicht 
auffällt, aber die Zeichen- 
geschwindigkeit viel grö- 
fer sein kann. 


DER SSHAPE- UND 
GSHAPE-BEFEHL 


Eine der besten Ideen von 
Commodore für den C16 
sind die Shapes. Sie er- 
möglichen es, beliebige 
rechteckige Ausschnitte 
aus einem Hires-Bild her- 
auszunehmen, in einer 
Stringvariablen (aS, bS, 
bildS..) abzulegen und an 
anderer Stelle wieder dar- 
zustellen. 
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00000 77 


Schreibweise: 

SSHAPE Stringvariable, 
xa, ya (,xe, ye) 
Stringvariable beliebiger 
Variablenname 

xa, ya linke obere Ecke 
xe, ye rechte untere Ecke 


Statt einer Stringvaria- 
blen einen String(‘‘Name‘‘) 
zu verwenden, wie es im 
Handbuch beschrieben 
ist, geht leider nicht. Wer- 
den xe und ye nicht ange- 
geben, so wird die Posi- 
tion des PC eingesetzt. 
Wie Sie aus dem Hand- 
buch sicher wissen, gibt 
es für die Größe der 
Shapes die Einschränkung, 
daß ein String nicht mehr 
als 255 Byte haben kann. 
Dabei werden die letzten 
vier Byte für die Längen- 
ausdehnung in x- bezie- 
hungsweise y-Richtung 
benötigt. 

Will man die 255 Bytes, 
die zur Verfügung stehen, 
voll nutzen, so muß man 
wissen, daß in x-Richtung 
ein Shape immer bytewei- 
se erfaßt wird. Schreibt 
man zum Beispiel mit 


graphik2,1:char,0,0,‘*a‘“ 
ein A in die linke obere 
Ecke und will diese in 


einen Shape übernehmen, 
so geschieht dies mit: 


SSHAPE S$,0,0,7,7 
Man sollte also beachten, 


SHAPE-GRÖSSE 


dafs die Zählung bei Null 
beginnt. Setzt man die 
Grenzen von eins bis 
acht, so braucht man 
schon acht Byte mehr. 
Jetzt wollen wir uns ein- 
mal den Inhalt von S$ 
ansehen: 


graphik O0 
for i=0 to len (a$): rpint 
asc (mid$ (a$,i,1)):next 


‚Man erhält zwölf Werte. 


Die letzten vier Zahlen 
sind die x- und y-Ausdeh- 
nung in LO/HI-Byte-Dar- 
stellung. 

Den umgekehrten Weg 
kann man beschreiten, 
wenn man ein Shape aus 
Zahlen zusammenset- 

zen will. Wiederholen Sie 
einmal das Ganze, wobei 
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Sie im SShape-Komman- 
do ‚7,7 durch ‚8,7 erset- 
zen. Jetzt werden 20 

Byte benötigt, obwohl 
wir in x-Richtung nur ein 
Bit mehr verlangt haben. 
Es werden aber immer 
acht Bit nebeneinander 
zu einem Byte zusammen- 
gefaßt. 

Dies führt uns zu dem 
Problem, wie groß ein 
Shape sein kann. Im Hand- 
buch ist dazu eine recht 
komplizierte Formel an- 
gegeben. Hier ist ein klei- 
nes Programm, mit dem 
die Endwerte eingegeben 
werden können. Wird das 


le y-Ausdehnung von 41 
Punkten angeben. 

Hat man ein Shape erzeugt, 
dann will man es einem 
bestimmten Platz darstel- 
len. Dazu verwendet man 
den GSHAPE-Befehl. 


Schreibweise: 
GSHAPE Stringvar. ((,‚xa, 
ya),Modus) 


Die Koordinaten der lin- 
ken oberen Ecke (xa,ya) 
und der Wiedergabemo- 
dus können auch wegge- 
lassen werden. Dann wer- 
den die PC-Koordinaten 
und als Wiedergabemodus 
0 verwendet. 


Tabelle zur Ermittlung des maximalen ye-Wertes 
bei vorgegebenem xe 


Shape zu groß, so wird 
der ye-Wert solange redu- 
ziert, bis kein STRING 
TO LONG ERROR mehr 
erzeugt wird. Diese Feh- 
lermeldung wird von 
TRAP abgefangen und 
das Programm fortgesetzt. 


200 input xe,ye;xe,ye 

210 trap 230 

220 sshapea$0 0 ,xe,ye: 
printxe, ye:cl r:goto 
200 


230 ye=ye-]:resume 210 


Damit Sie nun nicht jedes- 
mal das Programm starten 
müssen, wurde eine Tabel- 
le mit obigem Pro- 

gramm erstellt. 


Die Tabelle wird folgender- 
maßen benutzt: 

Sucht man zu einem gege- 
benen xe-Wert den maxi- 
malen ye-Wert, so sucht 
man in der Tabelle den 
nächst niedrigeren Wert 
und liest den dazugehö- 
renden ye-Wert ab. Zum 
Beispiel kann man bei ei- 
ner x-Ausdehnung von 

47 Punkten eine maxima- 


Für den Wiedergabemo- 
dus gibt es fünf Möglich- 
keiten: 


0 wie aufgenommen; 

1 reverse, 
Zeichenfarbe und Hin- 
tergrund vertauscht; 

2 ODER verknüpft, 
Punkte im SHAPE 
kommen zu den vor- 
handenen Punkten 
dazu; 

3 UND verknüpft, 
ein Punkt des Shape 
wird nur dann gezeich- 
net, wenn an der Stel- 
le schon ein Punkt war 

4 EOR verknüpft, 
(Exclusiv-OR), Punkte 
werden nur dort ge- 
zeichnet, wo entweder 
beim Shape oder beim 
Untergrund ein Punkt 
ist. 

Damit Sie die Wirkung der 

verschiedenen Modi bes- 

ser verstehen, geben Sie 
einmal folgendes Beispiel- 
programm ein: 


10 graphic 2,1 
20 char,0,0,““shape‘“ 


30 sshape a$,0,0,len(a$) 


40 fori!0to20:gshapea$, 
10#1,6*i:next 

50 getkeyw$:scnclr 

60 box,50,0,100,60,,1 

70 locates5,5:for m=0to 
4:gshapea$,,m:next 

80 locate55,5:for m= 
Oto4:gshapea$,,m: 
next 


Das Wort SHAPE wird in 
die linke obere Ecke ge- 
schrieben und mit 
SSHAPE in die Variable 
A$ übernommen. In Zeile 
40 wird gezeigt, wie man 
ein Wort an beliebige 
Stelle auf dem Hires-Bild- 
schirm plazieren kann, 
wobei der Untergrund 
stets überschrieben wird 
(Modus O). 

Zeile 60 zeichnet ein aus- 
gefülltes Rechteck und in 
den Zeilen 70 sowie 80 
wird das Wort SHAPE 
mit allen fünf Modi ein- 
mal auf weiße Flache und 
einmal auf schwarze Flä- 
che geschrieben. 

Der interessanteste Mo- 
dus ist 4 (EOR-Verknüp- 
fung). Zum einen, weil ei- 
ne Figur auf hellem Un- 
tergrund dunkel und auf 
dunklem Untergrund hell 
erscheint, somit also im- 
mer erkennbar ist, und 
zum zweiten, weil eine 
zweimalige EOR-Verknüp- 
fung den ursprünglichen 
Zustand wieder herstellt. 
Dadurch kann man zum 
Beispiel eine Figur über 
den Bildschirm wandern 
lassen, ohne das Bild zu 
zerstören. 

Da man in der Grundver- 
sion beim C16 so wenig 
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Speicherplatz bei einge- 
schalteter Grafik zur Ver- 
fügung hat, muß man alle 
Möglichkeiten nutzen, 
unnötige Angaben einzu- 
sparen. Sowohl bei 
SSHAPE als auch bei 
GSHAPE kann man die 
PC-Position nutzen, wie 
beim vorherigen Beispiel 
in Zeile 70. Hier wird 
automatischdie PC-Posi- 
tion eingesetzt, welche 
sich nach der Anwendung 
von GSHAPE in der lin- 
ken unteren Ecke des 
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Shape befindet, wodurch 
man mehrere Shape leicht 
ohne Rechenaufwand un- 
tereinander darstellen 
kann. Zur Verdeutlichung 
folgt noch ein Beispiel, 
wie man die PC-Position 
für SSIHAPE und GSHAPE 
ausnützen kann: 


110 locate40,40: fori= 
10t030step10:box,i,i: 
next 

120 sshapea$,10,10:draw 
tol00,100:gs hapea$ 


So, nun lassen Sie alle 
Hemmungen fahren und 
probieren einfach mal 
wild drauf los. Sie wer- 
den sehen, daß es gar 
nicht so schwierig ist. 
Zum Abschluß noch ein 
kleiner Tip: Wissen Sie, 
wie man am schnellsten 
vom Hires-Graphik-Mo- 
dus in den normalen 
Textmodus kommt? 
Mit * RETURN. Dies 
erzeugt zwar einen 
SYNTAX-ERROR aber 
das stört ja nicht. 
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